простая задача по строковым переменным

[STEEL-F]

Помогите плиз) она мне как допуск к завтрашнему экзамену
Условие: дано слово или предложение на русском языке. Указать количество букв "о" в последнем слове
delphi7

[Карась]

В цикле просматриваешь символы с конца... Находишь "о", значит +1.
Находишь пробел, значит завершение цикла.

[STEEL-F]

Сообщение от Карась

просматриваешь символы с конца...

Спасибо большое, но можно это место поподробней пожалуйста?

[Карась]

var S : string;
    i : integer;
begin
Readln (S); i := Length(s);
While S[i] <> ' ' do
  Begin
    .......
    i := i - 1;
  End;
Readln;
end.

Вместо точек реакция на нужные символы..

АДД: особено нужно дописать выход из цикла при i = 0.

[STEEL-F]

Сообщение от Карась

var S : string;
    i : integer;
begin
Readln (S); i := Length(s);
While S[i] <> ' ' do
  Begin
    .......
    i := i - 1;
  End;
Readln;
end.

Вместо точек реакция на нужные символы..

АДД: особено нужно дописать выход из цикла при i = 0.

я наверно уже сплю и не могу понять...как привязать это к полю ввода (edit1) и к полю вывода (edit2) и к кнопке расчета
помогите, если несложно

[Карась]

Понятно.... тоже сессия, тоже жопа...

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.

На форму бросаешь два едита и кнопку..
Программа рухнет если в поле ничево нету.
Если предложение заканчивается пробелом то цикл непроходит а результат равен нулю...

[STEEL-F]

Огромное спасибо) все работает...