Label2.Caption: = 'В тексте ';

begin

N:=Length(Edit1.Text); {определить число символов}

Label2.Caption: = 'В тексте ';

if N>20 then N:=N mod 10; {выделить последнюю цифру}

case N of {в зависимости от последней цифры}

1 : S:=' символ'; {изменять окончание слова}

2..4 : S:=' символа';

0,5..20 : S:=' символов';

end;

Label2.Caption:=Label2.Caption+

IntToStr(Length(Edit1.Text))+ S; {вывести результат}

end;

5. Сохраните файлы проекта и программного модуля, откомпилируйте и запустите программу на выполнение.

6. Проверьте работу приложения, задавая текст с разным количеством символов и проверяя правильность вывода результатов работы.

Дополнительное задание 1.

Измените цветовое решение формы.