[xdessx]

Код:

//очищение edit2
for i := 0 to edit2.length do begin
 edit2.text[i] := '';
end;

edit2.text := edit1.text; 
//заполнение edit2
for j := 0 to edit1.length do begin
 edit2.text := edit2.text + edit1.text[j];
end;
 
label1.caption := edit2.text;

Почему выводится по 2 раза?