Напишите пожалуйста код обработчика событий который будет удалять из введенных слов,
разделенных запятой, в компонент RichEdit последнюю букву??? Только пожалйста напишите его полностью,
т.е.(что должно быть написано в этой
процедуре):

procedure TForm1.Button1Click(Sender: TObject);

begin
..................
end;

Заранее спасибо...


????? И почему этот код не удаляет ни букву ни слово вообще ????? (пожалйста напишите в чем моя ошибка в этом коде)
__________________________________________________________________________________________________
procedure TForm1.Button1Click(Sender: TObject);
Var
i : Integer;
S, St, Res : String;
begin
S := ''; Res := '';
S := RichEdit1.Text;
Repeat
i := pos (' ',S);
if i = 0 then i := length(S)-1;
St := Copy (S,0,i);
Delete (S,1,i);
Delete (St,i-1,1);
Res := Res + St;
Until i = 0;
end;
___________________________________________________________________________________________________