неполучается с задачкой по ДЕЛФИ.

[Аделинка]

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

[GetMax]

procedure TForm1.FormActivate(Sender: TObject);
begin
  Edit1.Clear;
  Kol_K:=0;
  Kol_U:=0;
  Kol_R:=0;
  Kol_C:=0;
  Edit1.SetFocus
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If Key <> '!' then
  Begin
    If Key = 'к'  then Inc(Kol_K);
    If Key = 'у' then Inc(Kol_U);
    If Key = 'р' then Inc(Kol_R);
    If Key = 'с' then Inc(Kol_C)
  End
  Else
  If (Key = '!') and ((Kol_K>0) or (Kol_U>0) or (Kol_R>0) or (Kol_C>0)) then
  Begin
    ShowMessage('К = '+IntToStr(Kol_K)+#10#13+'У = '+IntToStr(Kol_U)+#10#13+'Р = '+IntToStr(Kol_R)+#10#13+'C = '+IntToStr(Kol_C));
    Kol_K:=0;
    Kol_U:=0;
    Kol_R:=0;
    Kol_C:=0;
    Exit
  End
  Else
  Begin
    ShowMessage('Нет таких букв!');
    Exit
  End;
end;