unit lauf; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
  StdCtrls; 
 
type 
  TForm1 = class(TForm) 
    Label1: TLabel; 
    procedure FormCreate(Sender: TObject); 
    procedure FormDestroy(Sender: TObject); 
  private 
    { Private-Deklarationen} 
  public 
    procedure lauf(sender: tobject); 
    procedure zuweisen; 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
uses ExtCtrls; 
 
{$R *.DFM} 
 
const 
  leer = #32#32#32#32#32#32#32#32#32; 
  geschw: integer = 200; 
  schrift: string = leer + 'Das ist eine einfache Laufschrift' + leer; 
var 
  tt: TTimer; 
  zusehen, lang: integer; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  zusehen := length(leer) * 2; 
  label1.font.name := 'Fixedsys'; 
  tt := TTimer.create(self); 
  tt.ontimer := lauf; 
  lang := length(schrift) - 1; 
  zuweisen; 
  tt.interval := geschw; 
end; 
 
procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  tt.free; 
  tt := nil; 
end; 
 
procedure TForm1.zuweisen; 
begin 
  label1.caption := copy(schrift, 1, zusehen); 
end; 
 
procedure TForm1.lauf(sender: tobject); 
begin 
  schrift := copy(schrift, 2, lang) + schrift[1]; 
  zuweisen; 
end; 
 
end.