ich habe sowas in JavaScript *gg*.
Aber das hilft dir wahrscheinlich nicht.
Also am besten nimmst du sonst einfach einen timer. Denn ohne timer, ohne delay und sonstiges geht das eben einfach zu schnell.
Einfach eine globale Variable ToType:sting; anlegen und dann diesen qt in das ontimerevent:
Delphi-Quellcode:
if length(ToType) =0 then exit; //wenn es nichts zu tippen gibt, können wir es gleich lassen...
memo1.lines.Strings[memo1.lines.count-1] :=memo1.lines.Strings[memo1.lines.count-1] + ToType[1];
Delete(ToType, 0, 1);
Alles so aus dem Kopf geschriben, ich hoffe das ist so richtig...
Soll jedenfalls einfach das erste Zeichen aus ToType an die memo anhängen und dann das erste Zeichen aus dem string ToType löschen.
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.
Have a lot of fun!