Hier mal die "häßliche" Variante mit Bilder austauschen... (Source ist nicht getestet, kann also irgendwo nen Fehler drin sein, sollte aber veranschaulichen wies geht)
Delphi-Quellcode:
[...]
mypics: Array[0..4] of TBitmap;
[...]
procdure Tform1.Formcreate(Sender: TObject);
var count: Integer;
begin
for count := 0 to 4 do
begin
mypics[count] := TBitmap.create;
mypics[count].loadfromfile('c:\mybild' + inttostr(count));
end;
end;
procedure TForm1.FormDestroy(Sender:TObject);
var count: Integer;
begin
for count := 0 to 4 do mypics[count].Free;
end;
procedure Tform1.timerereignis(Sender: TObject);
begin
Image1.picture.assign(mypics[aktuellesBild]);
aktuellesbild := aktuellesbild + 1;
if aktuellesbild = 5 then aktuellesbild := 0;
end;