1 unit Unit13;
 2 
 3 interface
 4 
 5 uses
 6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 7   Dialogs, StdCtrls, ExtCtrls, jpeg;
 8 
 9 type
10   TForm13 = class(TForm)
11     Timer1: TTimer;
12     Label1: TLabel;
13     Image1: TImage;
14     procedure Timer1Timer(Sender: TObject);
15   private
16     { Private declarations }
17   public
18     { Public declarations }
19   end;
20 
21 var
22   Form13: TForm13;
23 
24 implementation
25 
26 {$R *.dfm}
27 
28 procedure TForm13.Timer1Timer(Sender: TObject);
29 begin
30   Self.Label1.Left := Self.Label1.Left - 1 ;
31   if Self.Label1.Left + Self.Label1.Width = 0 then
32   Self.Label1.Left := Form13.Width;
33 
34 end;
35 
36 end.