Zeile bzw. String fließen lassen?

[turboPASCAL]

So:
http://www.delphipraxis.net/internal...=954088#954088

oder so:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);

  function ScrollText(TheScrollingText: String): String;
  begin
    Result := Copy(TheScrollingText,2,length(TheScrollingText)-1)+TheScrollingText[1];
  end;

begin
  Form1.Caption := ScrollText(Form1.Caption);
end;

oder janz andersch...