Удалить слова и символ пробела, встречающиеся подряд более, чем один раз. Не могу найти ошибку

unit Convert;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;
 
type
  TfrmConvert = class(TForm)
    mmoText: TMemo;
    mmoExit: TMemo;
    btnConverter: TButton;
    mm1: TMainMenu;
    mnuFile: TMenuItem;
    mnuConvert: TMenuItem;
    Edit1: TEdit;
    procedure btnConverterClick(Sender: TObject);
    function FirstDelim(var S:string;delim:string):string;
    function FirstWord(var S:string;delim:string):string;
    private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  frmConvert: TfrmConvert;
 
implementation
 
{$R *.dfm}
 
 
 
 
 
 
 
procedure TfrmConvert.btnConverterClick(Sender: TObject);
var i,j,p : integer;
find,S:string;
begin
  //mmoText.Lines.Clear;
  mmoExit.Text:=mmoText.Text;
  S:=TCaption(String(mmoExit.Text));
  j:=mmoExit.Lines.Count;
  //j:=3;
  While length(S)>0 do
  mmoExit.Text:=FirstDelim(S,' ');
  find:=FirstWord(S,' ');
  For i:=0 to j-1 do // Запускаем цикл поиска строки
     p:=Pos(find, mmoExit.Lines.Text);
     If p<>0 Then
     Begin
        Delete(S,p,length(find));
     End;
  mmotext.Lines.Add(s);
 
end;           
 
 
function TfrmConvert.FirstWord(var S:string;delim:string):string;
var i:integer;//счётчик
   W:string;//подстрока
   L:integer;//длина слова
   C:char;//символ
   P:integer;
begin
   for i:=1 to length(S) do
   begin
      c:=S[i];//текущий символ
      P:=Pos(C,delim);
      if P>0 then begin L:=i-1; break; end;
   end;
   W:=Copy(S,1,L);
   Delete(S,1,L);
   Result:=W;
end;
 
function TfrmConvert.FirstDelim(var S:string;delim:string):string;
var i:integer;//счётчик
   D:string;//подстрока
   L:integer;//длина слова
   C:char;
   P:integer;
begin
   for i:=1 to length(S) do
   begin
      c:=S[i];//текущий символ
      P:=Pos(C,delim);
      if P=0 then begin L:=i-1; break; end;
   end;
   D:=Copy(S,1,L);
   Delete(S,1,L);
   Result:=D;
end;
 
 
 
end.

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  with TStringList.Create do
  try
    Delimiter := ' ';
    DelimitedText := Edit1.Text;
    for i := Count - 1 downto 1 do
      if Strings[i] = Strings[i-1] then
        Delete(i);
    Edit1.Text := DelimitedText;
  finally
    Free;
  end;
end;