Мне надо составить прогу кторая при нажатии на кнопку вызывался обработчик событий который будет удалять из компонента RichEdit в котором будет последовательность слов разделенных пробелом по одному символу из каждого слова...

Вот я составил обработчик события который удаляет из всей последовательности вот и не знаю как сделать чтоб он удалял из каждого слова???

procedure TMainForm.BitBtn1Click(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;