С чем это может быть связано, а то я таких ошибок не знаю. :)

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Button1: TButton;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Timer2: TTimer;
    Label3: TLabel;
    Timer3: TTimer;
    Timer4: TTimer;
    Button2: TButton;
    Label5: TLabel;
    Button3: TButton;
    Button4: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure enemykill(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure screenshot;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
 
  end;
 
var
  Form1: TForm1;
  enemy:TImage;
  rname: String;
  time,enemies,enemies1,level,level1,bonustime:Integer;
  completed:Boolean;
 
implementation
 
uses Unit2;
 
 
{$R *.dfm}
 
function randomname:string;
var
  S:String;
  i,iloop:integer;
begin
  Result:='';
  S:='QWERTYUIOPASDFGHJKLZXCVBNM123456789qwertyuasdfghjklzxcvbnm';
  for i:=0 to 12 do
  begin
    Randomize;
    iloop:=Random(length(s));
    Result:=Result+S[ILOOP];
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Image2.Picture.LoadFromFile('data/blood.jpg');
  Image1.Picture.LoadFromFile('data/space.jpg');
  completed:=false;
  rname:=randomname();
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  enemy:=TImage.Create(self);
  enemy.Parent:=self;
  enemy.AutoSize:=false;
  enemy.Width:=48;
  enemy.Height:=48;
  enemy.Stretch:=true;
  enemy.Proportional:=true;
  enemy.Top:=Random(Image1.Height-enemy.Height)-1;
  enemy.Left:=Random(Image1.Width-enemy.Width)-1;
  if enemy.Top < 40 then
    enemy.Top:=40;
  if enemy.Left < 40 then
    enemy.Left:=40;
  enemy.Picture.LoadFromFile('data/enemy.ico');
  enemy.OnClick:=enemykill;
  level:=1;
  level1:=1;
  enemies:=10;
  enemies1:=10;
  time:=60;
  bonustime:=30;
  Timer1.Enabled:=true;
  Timer2.Enabled:=true;
  Timer3.Enabled:=true;
  Timer4.Enabled:=true;
  Button1.Enabled:=false;
  Button4.Enabled:=true;
end;
 
procedure TForm1.enemykill(Sender: TObject);
begin
  enemies:=enemies-1;
  enemy.Top:=Random(Image1.Height-enemy.Height)-1;
  enemy.Left:=Random(Image1.Width-enemy.Width)-1;
  if enemy.Top < 40 then
    enemy.Top:=40;
  if enemy.Left < 40 then
    enemy.Left:=40;
end;
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label3.Caption:='Óðîâåíü: '+inttostr(level);
  Label1.Caption:='Âðåìÿ: '+inttostr(time-1);
  time:=time-1;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  Label2.Caption:='Âðàãè: '+inttostr(enemies);
end;
 
procedure TForm1.Timer3Timer(Sender: TObject);
begin
 if (enemies=0) and (time>0) then
   completed:=true;
 if (time=0) and (enemies>1) then
   begin;
   screenshot();
   enemy.Free;
   Timer1.Enabled:=false;
   Timer2.Enabled:=false;
   Timer3.Enabled:=false;
   Timer4.Enabled:=false;
   Button1.Enabled:=true;
   completed:=false;
   showmessage(' Âû, ê ñîæàëåíèþ ïðîèãðàëè.'+#13#10+' Ñäåëàí ñêðèíøîò ðåçóëüòàòà èãðû, îí ëåæèò â ïàïêå screenshots ðÿäîì ñ èãðîé.');
   end;
 if completed=true then
   begin
   time:=time+30;
   enemies:=enemies1+10;
   enemies1:=enemies1+10;
   level:=level1+1;
   level1:=level1+1;
   completed:=false;
   end;
end;
 
 
procedure TForm1.Timer4Timer(Sender: TObject);
begin
Label5.Caption:='Áîíóñ: '+inttostr(bonustime-1);
bonustime:=bonustime-1;
if bonustime=0 then
  begin
  time:=time+5;
  bonustime:=30;
  end;
end;
 
procedure TForm1.screenshot;
var
  JpegIm: TJpegImage;
  bm: TBitMap;
begin
  bm := TBitMap.Create;
  bm.Width := Screen.Width;
  bm.Height := Screen.Height;
  BitBlt(bm.Canvas.Handle, 0, 0,
      bm.Width, bm.Height,
      GetDC(0), 0, 0, SRCCOPY);
  JpegIm := TJpegImage.Create;
  JpegIm.Assign(bm);
  JpegIm.CompressionQuality := 100;
  JpegIm.Compress;
  JpegIm.SaveToFile('screenshots\screenshot'+rname+'.jpg');
  bm.Destroy;
  JpegIm.Destroy;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
screenshot();
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  showmessage('Àâòîð èãðû - mokAh');
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  enemy.free;
  screenshot();
end;
 
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  enemy.free;
  Timer1.Enabled:=false;
  Timer2.Enabled:=false;
  Timer3.Enabled:=false;
  Timer4.Enabled:=false;
  Button4.Enabled:=false;
  Button1.Enabled:=true;
end;
 
end.

program Project1;
 
uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.Title := 'Space killer';
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.Run;
end. // вот на это кидает при нажатии ок

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  // enemy.free; // Этого делать не надо
  screenshot();
end;

  enemy:=TImage.Create(self);