Что за ошибка "External: SIGSEGV"?

image1.Canvas.Draw(0,0,fon);
image1.Canvas.Draw(x,60,korb);
 
 
 
unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
 Windows, messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls;
 
 
type
 
   { TForm1 }
 
   TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure rmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end; 
 
var
  Form1: TForm1;
  fon:tbitmap;//ГРАФИЧЕСКИЙ ОБРАЗ Фона
  KORB:TBITMAP;//ГРАФИЧЕСКИЙ ОБРАЗ корабля
  x:integer;//координаты X корабля
  shx:integer;//Шаг движения корабля по X
 
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
shx:=6;
//
fon:=tbitmap.Create;//
korb:=tbitmap.Create;//
//
fon.LoadFromFile('C:\Documents and Settings\Admin\Рабочий стол\fon.bmp');//Загрузить в переменную 'fon' файл  'fon.bmp'
//
korb.LoadFromFile('C:\Documents and Settings\Admin\Рабочий стол\korb.bmp');//Загрузить в переменную 'korb' файл  'korb.bmp'
korb.transparent:=true;//Прозрачность вокруг контура корабля
//
image1.Canvas.Draw(0,0,fon);//
image1.Canvas.Draw(x,60,korb);//
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=x+shx;//текущая координата + шаг
if x>500 then shx:=shx-1;// ограничение справа
if x<0 then shx:=shx-1;//ограничение слева
image1.Canvas.Draw(0,0,fon);//возобновление фона
image1.Canvas.Draw(x,60,korb);//движение корабля
end;
 
procedure TForm1.rmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=37 then shx:=-15;//движение влево
if key=39 then shx:=15;//движение вправо
end;
 
end.