procedure TForm1.Button1Click(Sender: TObject);
var i, z : integer;
     S : String;
 
begin
S := Edit1.Text; i := Length(S); z := 0;
While S[i] <> ' ' do
  Begin
    if S[i] = 'î' Then z := z + 1;
    i := i - 1;
    if i = 0 Then Break;
  End;
Edit2.Text := IntToStr(z);
end;
 
end.