Schrift wie von "Geisterhand"

[Aenogym]

Delphi-Quellcode:

var i: integer;

procedure TForm1.Timer1Timer(Sender: TObject);
const
  theText = 'Das ist ein Test';
begin
  i := i + 1;
  label1.Caption := label1.caption + theText[i];
end;

Aenogym

edit: zu lahm