[Страдалецъ]

Все это можно сделать намного проще если воспользоваться стандартным классом TStringList.

Код:

procedure TForm1.Edit1Change(Sender: TObject);
Var
 L: TStringList;
begin
 L := TStringList.Create;
 L.Sorted := True;
 L.Text := StringReplace(Edit1.Text,' ',#13,[rfReplaceAll]);
 Edit2.Text := StringReplace(L.Text,#13#10,' ',[rfReplaceAll]);
 L.Free;
end;