Jetzt tu mir nen Gefallen und benutze diesen Code. Einfach ausprobieren, bevor du mögliche Fehler kritisierst. Nebenbei würde ich die Bilder eher in eine ImageList laden, die Dinger 16 mal in der Sekunde aus der Datei zu laden ist ineffizient.
EDIT: Was meinst du, wie ein Timer funktioniert? Das ist nichts anderes als GetTickCount schön in ne Klasse verpackt.
Delphi-Quellcode:
procedure TForm1.trash;
var start:longint;
i:integer;
begin
i:=0;
repeat
start:=gettickcount;
repeat Application.ProcessMessages until GetTickCount>=start+50;
image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
repeat Application.ProcessMessages until GetTickCount>=start+100;
image4.Picture.loadfromfile('.\pics\trash_open2.bmp');
repeat Application.ProcessMessages until GetTickCount>=start+150;
image4.Picture.LoadFromFile('.\pics\trash_blum.bmp');
repeat Application.ProcessMessages until GetTickCount>=start+250;
image4.Picture.loadfromfile('.\pics\trash.bmp');
inc(i);
until i=10;
end;