То fgh:
Ты что, совсем трудный? Нафига каждый раз новую тему создавать??? Если ты не можешь разобраться, как сообщение отправлять ПРАВИЛЬНО, то нехер и в программирование суваться. А то развелось программистов, аж плюнуть некуда, и все такие крутые - мы можем базы данных и программы писать... Придурки...

Теперь по делу: Я тебе привел пример, как можно пробежаться, по всем буквам текста. Тебе осталось в цикле, там где ShowMessage, вставить СВОЙ алгоритм выкидывания букв. А алгоритмов может быть несколько. И это уже не столько вопрос программирования в Delphi, а просто разработка алгоритма. Ты возьми и подумай, как тебе решить данную задачу теоретически. А потом в форуме спроси - Вот, мол, как то, что придумал, написать в Delphi.
Например,
обьявим динамический массив (ДМ), затем в цикле
if RichEdit1.Lines.Text[j]<>' ' then //если это не пробел, то
увеличим ДМ на 1 и туда запихаем RichEdit1.Lines.Text[j].
if RichEdit1.Lines.Text[j]=' ' then //если это пробел, то
запихаем RichEdit1.Lines.Text[j] в ДМ, не увеличивая его, т.е.затрем последнюю букву пробелом.
Вот, собственно и всё, надеюсь, сможешь разобраться. А если нет, то нахрен форматируй HDD, выключай комн и иди паси коров. А по дороге купи книг умных, но не про то, как изучить какую-нить херню за 21 день, а трехтомничек КНУТА.

Ух, уморил ....
Короче, примерно так можно сделать:
procedure BitBtn1Click(Sender: TObject);
var
i,j: Integer;
Massive: array of Char;
begin
for i := 0 to RichEdit1.Lines.Count-1 do
begin
for j:= 1 to Length(RichEdit1.Lines.Text)-2 do
begin
if RichEdit1.Lines.Text[j]<>' ' then
begin
SetLength(Massive, Length(Massive)+1);
Massive[Length(Massive)-1]:=RichEdit1.Lines.Text[j];
end
else
Massive[Length(Massive)-1]:=RichEdit1.Lines.Text[j];
end;
RichEdit1.Lines.Text := String(Massive);
end;
end;
Вроде как работает. Только еще можно поставить проверку на то, что первый символ - это пробел, но это уже не так важно. Тебе этого хватит.

То fgh:
Ты не обижайся, но всё же серьезно подумай и купи умных книг по составлению алгоритмов и т.п.