Дано слово или предложение на русском языке. Указать количество букв «о» в последнем слове — Delphi(Делфи)

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;