Gleitkommadivision durch Null

[Sir Rufo]

Hast du es schonmal mit (in Unit1)

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  path := ExtractFilePath( ParamStr( 0 ) );

  PFeuer := TPistol.Create( Self ); // neu
  PNormal := TPistol.Create( Self ); // neu

  PFeuer.Picture.LoadFromFile( path + 'gun1.bmp' ); // Änderung
  PNormal.Picture.LoadFromFile( path + 'gun2.bmp' ); // Änderung

  Image7.Picture.Bitmap.PixelFormat := pf24Bit;
  Start:=50;
  Phase:=1;
  a := 0;
  Punkte:=0;
  randomize;
  doublebuffered := true;
end;

probiert?