Вот это работает но как сделать так чтобы этот код удалял не из всей последовательности по одному символу, а из каждого слова (признак окончания слова это пробел):
procedure TForm1.Button1Click(Sender: TObject);
Var c,d,k: integer;
begin
k:=1; //количество символов, которые надо "отрезать"
c:=richedit1.Lines.Count;
d:=length(richedit1.Lines.Strings[c-1]);
richedit1.Lines.Strings[c-1]:=copy(richedit1.Lines.Strings[c-1],0,d-k);
end;