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;