Delphi7. Копирование не повторяющихся слов

[Сароникус]

Люди, уже который день бьюсь над задачкой. Нужно из Edit1 копировать все слова, которые встречаются только 1 раз (т.е. если есть два одинаковых слова, то ни одно из них не копировать), в Edit2. Часть задачи сделал, но её нужно подправить ^_^

procedure TForm1.Button1Click(Sender: TObject);
var s, ss : string;
begin
 Edit2.Text:='';
 S:=Edit1.Text;       // Просто чтобы не писать каждый раз Edit1.Text
 while Pos('.',S)>0 do    // Здесь мне нужно сделать так, чтобы задание работало только до точки
 begin
  ss:=copy(s,0,Pos(' ',S));   // Копируемое слово
  delete(S,0,Pos(' ',S));
  if (Pos(ss,S)<0) and (Pos(ss,S)<0) then   // Если копируемое слово больше нигде не повторяется
    Edit2.Text:=Edit2.Text + ss; // то копируем его сюда
 end;
end;

end.

Заранее благодарен за помощь!

[Serge_Bliznykov]

а попробуйте такое решение:

procedure TForm1.Button1Click(Sender: TObject);
var TS : TStringList;
    i, IndexFound : integer;
    s, sResult  : string;
begin
 TS := TStringList.Create;
 sResult := '';
 try
   TS.Delimiter := ' ';
   TS.CaseSensitive := false;
   TS.DelimitedText := Edit1.Text;

   for I := 0 to TS.Count - 1 do begin
     s := TS.Strings[i];
     if Length(s)>0 then begin
       TS.Strings[i] := ''; {стёрли слово, чтобы оно не находилось поиском}
       IndexFound := TS.IndexOf(s);
       if IndexFound<0 then
          if length(sResult)=0 then sResult := s else sResult := sResult + ' ' + s
       else {если такие слова в строке есть - сотрём из напрочь} begin
         while IndexFound>=0 do begin
           TS.Strings[IndexFound] := '';
           IndexFound := TS.IndexOf(s);
         end;
       end;
     end;
   end;
 finally
   FreeAndNil(TS);
   Edit2.Text := sResult;
 end;
end;

[Сароникус]

ох...Я таких то слов не знаю...)) Впрочем мне уже помогли сделать, но всё равно я выражаю Вам свою благодарность за помощь!