type TForm1 = class(TForm) Image1: TImage; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; contador : integer; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); begin case contador of 1: begin Image1.Picture.LoadFromFile('C:\Burro\Bur1.bmp'); Image1.Left := Image1.Left + 10; end; 2: begin Image1.Picture.LoadFromFile('C:\Burro\Bur2.bmp'); Image1.Left := Image1.Left + 10; end; 3: begin Image1.Picture.LoadFromFile('C:\Burro\Bur3.bmp'); Image1.Left := Image1.Left + 10; end; 4: begin Image1.Picture.LoadFromFile('C:\Burro\Bur4.bmp'); Image1.Left := Image1.Left + 10; end; 5: begin Image1.Picture.LoadFromFile('C:\Burro\Bur5.bmp'); Image1.Left := Image1.Left + 10; end; 6: begin Image1.Picture.LoadFromFile('C:\Burro\Bur6.bmp'); Image1.Left := Image1.Left + 10; contador := 0; end; end; inc(Contador); end; end.
Ponen el TImage a Transparente= True
Ponen el timer a 250 y aqui esta el file de las imagenes:
suncoastmicros.com/Burro.zip
Un Saludo.