[xdessx]

Ребят, шутки в сторону! Нужна помощь!
Текст переходит из edit1 в edit2:

Код:

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

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

label1.caption := edit2.text;

Надо его "оптимизировать", но я не пойму как