1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Procedure Laufschrift(Quelle: String; Ziel: Tedit; Durchlaeufe : Integer);
var i : Integer;
    TextBuf : String;
begin
 TextBuf := Quelle+ '           ';
 For i := 1 to (Durchlaeufe * Length(TextBuf)) do
   begin
   TextBuf := Copy(TextBuf,2,Length(TextBuf)-1) + TextBuf[1];
   Sleep(50);
   Ziel.Text := TextBuf;
   Ziel.Refresh;  // ich würde Application.ProcessMessages  nehmen
  end;
end;					

1:
2:
3:
4:

Procedure TForm1.Button1Click(Sender: TObject);
begin
 Laufschrift(Edit1.Text, Edit2, 5);
end;					

1:

for i := Length(DeinText) downto 1 do ...					

1:
2:
3:
4:
5:

For I:=Length(Edit1.Text) DownTo 1 Do
Begin
Edit2.Text:=Edit2.Text+Edit1.Text[I];
Edit2.Refresh;
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

const
 MarqueeText   = 'Hallo +++ ';   // Der Text
 MarqueeLength = 100;            // Länge des Lauftextes
 MarqueeSpeed  = 1;              // Anzahl Zeichen pro Schritt
 MarqueeBack   = True;           // Rückwärts

var
 MarqueePos: Integer = 1;        // Zähler für Lauftext

procedure TMain.Timer1Timer(Sender: TObject);
var
 S: String;
 I, L: Integer;
begin
 L := Length(MarqueeText);

 S := Copy(MarqueeText, MarqueePos, L - MarqueePos + 1);
 While (Length(S) < MarqueeLength) Do
  S := S + MarqueeText;

 If (MarqueeBack) Then begin
  Dec(MarqueePos, MarqueeSpeed);
  While (MarqueePos < 1) Do
   Inc(MarqueePos, L);
 end Else begin
  Inc(MarqueePos, MarqueeSpeed);
  While (MarqueePos > L) Do
   Dec(MarqueePos, L);
 end;

 Edit1.Text := S;
end;