задача с применением функций и процедур для работы со строками

[Евгений77777]

Дан текст на русском языке.Выбрать из него те символы,которые встречаются в нем только 1 раз, в том порядке, в котором они встречаются в тексте.

[Евгений77777]

нужно ввести текста в edit1 и вывести в edit2

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var s,s1,s2: String;
    i: Integer;
begin
  s1:=Edit1.Text;
  s2:='';
  while Length(s1)>0 do begin
    s:=s1[1];
    i:=Length(s1);
    s1:=StringReplace(s1,s,'',[rfReplaceAll]);
    if Length(s1)=i-1 then s2:=s2+s;
  end;
  Edit2.Text:=s2;
end;

С регистро-нечувствительностью сам додумайся