помогите с коментариями к коду

[Михаил70]

Есть код. Помогите написать кометария к каждой строчки кода, включая переменные. Особенно мееня интересует строка s := StringReplace(s, s[1], '', [rfReplaceAll, rfIgnoreCase]); что она выполняет идля чего она сдесь?

procedure TForm1.Button1Click(Sender: TObject);
var
s, res: string[50];
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;
Label2.Caption:='Длина строки результата='+inttostr(i);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

[АНК]

Похоже по кнопке Button1 хотели посчитать кол-во не повторяющихся символов в Edit1 и вывести их Edit2.

Особенно мееня интересует строка s := StringReplace(s, s[1], '', [rfReplaceAll, rfIgnoreCase]);

Это первый символ строки s и все такие же дальше удаляются из строки s

[russian-stalker]

вот:

procedure TForm1.Button1Click(Sender: TObject);
var
{Переменные комментировать не буду, ибо понять для чего они вы сможете в коде}
s, res: string[50];
i: integer;
begin
s := Edit1.Text; //Приравниваем s тексту из Edit1
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;  //Помещаем наш получившийся текст без одинаковых символов в наше второе поле
Label2.Caption:='Длина строки результата='+inttostr(i);  //Выводим кол-во прошедших циклов до завершения, т.е. кол-во символов
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;//Покидаем программу
end;

[Михаил70]

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