scrolling text

Hello manixs2013

You could use this :

var    Timer: TTimer;

procedure ScrollingText(Interval:Integer;LabelName:TdbLabel);

var   text:TdbLabel;

function ScrollText(text:TdbLabel):string;
    var  stroka:string;
    begin
      text:= LabelName;
      stroka:= text.caption;
      text.caption:= copy (stroka, 2, length (stroka) - 1)+ copy(stroka,1,1);

end;

begin
   Timer := TTimer.Create (nil);
   Timer.OnTimer := @ScrollText;
   Timer.Interval := Interval;
   Timer.Enabled := True;
end;

procedure Form1_OnShow (Sender: string; Action: string);
begin
    Form1.Label1.Caption:= '"To get information, please call us 091245896589 or click this link : http://www.mrbingo.kz ';
     ScrollingText(200,Form1.Label1);
end;

Hope this helps you

JB