SPECIAL OFFER        Order and save right now!
20% off with the 729824315 dicscount code for Ultimate Pack and any another product for Delphi from Greatis Programming!

⤷ Running caption of the label

Use Label and Timer components. It is necessary to repeat the last part of the string for getting "running" effect.

procedure TForm1.Timer1Timer(Sender: TObject);
  Str: string = 'It is necessary to repeat the last part' + 
    'of this string. It is necessary to re';
  i: Integer = 1;
  Count: Integer = 20;
  Label1.Caption:=Copy(Str, i, Count);
  if i>Length(Str)-Count then i:=1;
More for developers
Databases for Amazon Associates
Amazon Categories
Amazon Nodes