Gleitkommadivision durch Null

[DelphiUser1]

ich habe bislang meine Bilddateien ganz gerne als Icon geladen, wollte jetzt aber mal mit Transparenz arbeiten. Dazu verwende ich eine bitmap. Zur animation eines Schußes, verwende ich ein case ereignis und lasse die phasen durchlaufen:
[DELPHI]1: begin
Image7.Picture.Bitmap.LoadFromFile(path+'gun2.bmp' );
Phase:=2;
end;
2:begin
Image7.Picture.Bitmap.LoadFromFile(path+'gun1.bmp' );
Phase:=1;[DELPHI]

Path ist ein String und wird beim fromcreate intialisiert //Path:=ExtractFilePath(ParamStr(0))
Jetzt bekomme ich aber die Fehlermeldung, es gäbe eine Gleitkommadivision.
Weiß jemand hier Rat?