hey...
also das starten könntest du durch die OnClick-Methode deines EditFeldes auslösen.
in dieser methode würde ich dann einen timer aktivieren. Das machst du in dem du Eigenschaft Enabled
des Timers auf True setzt. der Timer kann dann eine Variable hochzählen. Diese Variable entspricht dann der Position des Buchstabens der hinzugefügt werden soll. wenn alle buchstaben nacheinander zum Text der im EditFeld angezeigt wird hinzugefügt wurden. muss sich der timer wieder deaktiviern.
wenn man davon ausgeht das der text der in Edit1.Text steht in Edit2.Text soll und dein timer Timer1 heißt dann müsste das in etwa so aussehen:
Delphi-Quellcode:
{...}
var
Form1: TForm1;
Index : Integer;
implementation
{$R *.dfm}
procedure TForm1.Edit2Click(Sender: TObject);
begin
Timer1.Enabled := True; //Timer aktivieren
Index := 0; //"Index an den Start des Strings setzen"
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Index < length(Edit1.Text) then //bis zum Textende
begin //
Inc(Index); //Index hochzählen
Edit2.Text := Edit2.Text + Edit1.Text[Index]; //und Buchstaben anhängen
end
else //wenn Text zuende durchgegangen
Timer1.Enabled := False; //Timer Deaktivieren
end;