danke für die hilfe war nix passendes bei ^^
hab es jetzt anders gelöst.
Delphi-Quellcode:
begin
timer1.enabled:=false;
image4.left:=30;
inc(Fdoortimer);
if Fdoortimer>=100 then
begin
a:=2 ;
fdoortimer:=0;
exit;
funktioniert einwandfrei.
trotzdem danke