удалить в строке все одинаковые символы

[Михаил70]

Помогите пожалуйсто решить вот такую задачку.
Разработка редактора текста.
В окне формы записывается строка текста. Нужно удалить в строке все одинаковые символы.
Если сможете, напишите пожалуйсто мне код с коментариями.

Окно формы программы изображено на рисунке.

Заранее благодарен всем, кто откликнулся.

[Пепел Феникса]

а вы пробывали?

[Alex Cones]

Результат для твоей строки = ''. Никак не 'abcd' Потому, что в твоей строке присутствуют "aaaa","bbbb","cccc","dddd". Поконкретней, что требуется от строки?

[Neeter]

Вот что я придумал:

procedure TForm2.Button1Click(Sender: TObject);
var
 s, res: string;
 i: integer;
begin
 s := Edit1.Text;
 res := '';
 for i := 1 to Length(s) do
 begin
  res := res + s[1];
  s := StringReplace(s, s[1], '', [rfReplaceAll, rfIgnoreCase]);
  if Length(s) = 0 then Break;
 end;
 Edit2.Text := res;
end;

[evg_m]

редактирование на месте

i:=1;
while i<length(s) do
begin
  if s[i]=s[i+1] then 
     Delete(s,i+1,1)
  else
    i:=i+1;
end;

формирование новой строки
в коде не учтен один случай (в этом случае будет ошибка)

result:=s[1];
for j:=1 to length(s) do
  if result<>s[i] then result:=result+s[i];

[Михаил70]

Спосибо за помощь!!!!