Animation mit TImage!

[Ag3nt]

So ich habs doch noch hingekriegt

Hier der Code nochmals danke für eure Hilfe

Delphi-Quellcode:

var
  Form1: TForm1;
        Image1: TImage;
        temp: Integer;



implementation

{$R *.dfm}



procedure TForm1.Timer1Timer(Sender: TObject);
begin


        if temp = 1 then begin
        Image1.Picture.LoadFromFile('pics/1_'+IntToStr(temp)+'.bmp');
        Form1.Caption:=IntToStr(temp);
        temp:= 2;
        end
        else if temp = 2 then begin
        Image1.Picture.LoadFromFile('pics/1_'+IntToStr(temp)+'.bmp');
        Form1.Caption:=IntToStr(temp);
        temp:= 3;
        end
        else if temp = 3 then begin
        Image1.Picture.LoadFromFile('pics/1_'+IntToStr(temp)+'.bmp');
        Form1.Caption:=IntToStr(temp);
        temp:= 1;
        end;




end;

procedure TForm1.FormCreate(Sender: TObject);
begin
temp:= 1;
end;

end.