работа со строками(delphi)

[elizar]

ввод строки в компоненту Memo, а вывод результатов в ListBox.
1) дан текст. найти обратные слова и вывести(например ремирпан )
2) Дан текст. Слова разделены одним или несколькими пробелами. Удалить лиш-ние пробелы из текста.
помогите с решением пожалуйста, заранее спасибо

[Hacker19_90]

КОД В СТУДИЮ!

[elizar]

вторую я сделал, а вот с первой никак, помогите плиз, на вас вся надежда

[Прик]

procedure TForm1.Button1Click(Sender: TObject);
var
  K : Integer;
begin
  K := Pos('  ', Text);   //поиск двух подряд пробелов
  while K > 0 do begin    //если такие есть, то два меняются на один в цикле, 
                          //пока в тексте не останутся все одиночные пробелы
    Text := StringReplace(Text, '  ', ' ', [rfReplaceAll]);  
    K := Pos('  ', Text);
  end;
end;

[elizar]

спасибо, но я сделал так

    
              repeat
                inc(i);
                n:=length(s); 
                if (s[i]=' ') and ((s[i+1]=' ')) then
                  begin
                    delete (s,i,1);
                    dec(i);
                  end;
              until i=n;

спасибо всем я все сделал САМ!

[SERG1980]

По первому заданию не очень понятно. Как определять обратные слова. Или приведите пример исходного текста