Eine weitere Möglichkeit wäre:
Wenn Performance irrelevant ist und es um verschiedene Möglichkeiten geht, hier noch einer:
Delphi-Quellcode:
var
i: Integer;
mytext : string;
begin
myText := '';
if Length(Edit1.Text) > 0 then
for i := 1 to Length(Edit1.Text)-1 do
myText := myText + Edit.Text[i];
Edit1.Text := myText;
end;
Sollte das gleiche ergeben, ungetestet.