Lazarusban hogyan kell képet hozzárendelni egy objektumhoz?

Futásidőben kellene létrehoznom egy-egy képet, de nem tudom, milyen típusokat (TBitmap?, TPicture?, stb.) és hol kell használni, mert még kezdő vagyok ebben. Ezt a kódot írtam, de olyan hibát ír ki, hogy:

External SIGSEGV osztályú kivételt okozott a 77BFD174 címen.

Mi a rossz a programomban és hogyan lehetne kijavítani?

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, mouse;

type

{ TFoAblak }

TFoAblak = class(TForm)

procedure FormClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

type TLabda=class(TObject)

private

xhely,yhely: integer;

kepe: TBitmap;

public

constructor letrehoz(xhely0,yhely0: integer; kepe0: Tbitmap);

end;

var

FoAblak: TFoAblak;

labdakep: TBitmap;

egylabda: TLabda;

implementation

{$R *.lfm}

constructor TLabda.letrehoz(xhely0,yhely0: integer; kepe0: Tbitmap);

begin

xhely:=xhely0;

yhely:=yhely0;

kepe:=kepe0;

end;

//end;

{ TFoAblak }

procedure TFoAblak.FormClick(Sender: TObject);

begin

egylabda:=Tlabda.letrehoz(getmousex,getmousey,labdakep);

FoAblak.Canvas.Draw(egylabda.xhely,egylabda.yhely,egylabda.kepe);

end;

procedure TFoAblak.FormCreate(Sender: TObject);

begin

labdakep:=TBitmap.Create;

labdakep.LoadFromFile('labdabmp.bmp');

end;

end.