Textausgeben wie eine Schreibmaschiene?

[Luckie]

Delphi-Quellcode:

const
  MYTEXT = 'Hello world';

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure delay(msec:longint);
var
  start,stop:longint;
begin
  start := gettickcount;
  repeat
  stop := gettickcount;
  application.processmessages;
  until (stop - start ) >= msec;
end;

procedure TForm1.FormActivate(Sender: TObject);
var
  i : Integer;
begin
  delay(500);
  for i := 1 to length(MYTEXT) do
  begin
    Memo1.Text := Memo1.Text+MYTEXT[i];
    Application.ProcessMessages;
    Delay(150);
  end;
end;