Typewriter effekt, text anzeigen wie bei schreibmaschiene...

[yankee]

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.