Lauftext mal ganz anderst

[St.Pauli]

Ist zwar schon beantwortet, aber ich hab auch ne Idee:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := 'Lauftext allez';
  while Label1.Top > 0 do //Stoppt am oberen Ende des Windows
    begin
      Label1.Top := Label1.Top-1;
      Application.ProcessMessages;
      Sleep(10);
    end;
end;

Was haltet ihr davon? Nur so ne Frage