Ähm ja, ich hab mir das jetzt einfach mal so gedacht:
Code:
procedure TForm1.Timer1Timer(Sender: TObject);
var
test: string;
i : integer;
begin
test := 'Das ist ein Test';
i := i + 1;
label1.Caption := test[i];
end;
Funzt aber irgendwie bicht.
Irgendwie bin ich zu blöd...