Delphi 7; Перенос слов из строки в строку

[Сароникус]

Дана строка ( Edit1 ), ограниченная точкой, содержащая слова, состоящие из лат. букв. Слова разделены одним или несколькими пробелами. Напечатать в Edit2 все слова, которые встречаются в Edit1 по одному разу.

P.S. Заранее благодарен тому кто поможет!

[JUDAS]

procedure TForm1.Button1Click(Sender: TObject);
var s, ss : string;
begin
 Edit2.Text:='';
 S:=Trim(Edit1.Text);
 // убиваем двойные пробелы
 while Pos('  ',S)>0 do // тут 2 пробела
 delete(S,Pos('  ',S),1);
 S:=S+' ';

 while Pos(' ',S)>0 do // тут 1 пробел
 begin
  ss:=copy(s,1,Pos(' ',S));
  delete(S,1,Pos(' ',S));
  // ss-текущее слово слева
  // проверим есть ли оно в остальном тексте и в перенесённом
  if (Pos(ss, S)<1) and (Pos(ss, Edit2.Text)<1) then
    Edit2.Text:=Edit2.Text + ss; // нет слова переносим
 end;
end;

[GetMax]

Как то так

procedure TForm1.Button1Click(Sender: TObject);
Var
  Mas:array[1..20] of String;
  SpasePosition:Byte;
  St,SubSt:String;
  i,Count,j,CountPovtorov:Byte;
  WasFound:Boolean;
begin
  st:=Edit1.Text;
  SubSt:='';
  j:=0;
  Count:=0;
  i:=1;
  While i <= Length(St) do
  Begin
    If (St[i] <> ' ') and ( i <= Length(St)) then SubSt:=SubSt+St[i];
    If (St[i] = ' ') or ( i = Length(St)) then
    Begin
      If SubSt <> '' then
      Begin
        Inc(j);
        Mas[j]:=SubSt;
        inc(count);
        SubSt:=''
      End;
    End;
    Inc(i)
  End;
  For i:=1 to Count do
  Begin
    CountPovtorov:=0;
    For j:=1 to Count do
    If (Mas[i] = Mas[j]) and ( i <> j) then
    Begin
      Inc(CountPovtorov);
      Break
    End;
    If CountPovtorov = 0 then
    Edit2.Text:=Edit2.Text + ' ' + Mas[i]
  End;
end;

[Сароникус]

Огромное спасибо вам! Очень помогли :-)