GetTickCount

[ontorius]

So ich habs jetzt gelöst:

Delphi-Quellcode:

procedure TForm1.trash;
begin
  if gettickcount>=start+1000 then start:=gettickcount;
  if (start+50)<=gettickcount then image4.picture.LoadFromFile('.\pics\trash_open1.bmp');
  if (start+100)<=gettickcount then image4.Picture.loadfromfile('.\pics\trash_open2.bmp');
  if (start+150)<=gettickcount then image4.Picture.LoadFromFile('.\pics\trash_blum.bmp');
  if (start+1000)<=gettickcount then image4.Picture.loadfromfile('.\pics\trash.bmp');
end;

start wird dann in der Startprozedur deklariert. Also, es doch. Vielen Danke für eure Beiträge.