Используя компоненту Edit выполнить следующие действия.

[Аделинка]

Ввести произвольную последовательность символов, предшествующиую символу''!''и выяснить, есть ли среди них буквы, входящие в слово (курс) и сколько раз какая из этих букв встречалась.
Плиииз помогите решить какой код?....

[tsar_]

Вбей в гугле запрос: Delphi операции со строками.

[Stilet]

Подсмотри в методе как описывать события в частности OnChange, и в него вставь такое:

procedure TForm1.Edit1Change(Sender: TObject);
var k,u,r,s,i:integer;
begin
 with TEdit(sender) do
 for i:=1 to length(text) do begin
  case text[i] of
   'к':inc(k);'у':inc(u);'р':inc(r);'с':inc(s);
  end;
  Caption:='k='+IntToStr(k)+' y='+IntToStr(u)+' ð='+IntToStr(r)+' c='+IntToStr(s);
 end;
end;

при вводе в заголовке форы будет подсчет букв