TÉMA:

Result:=TLibHandle(dlopen(Pchar(Name),RTLD_LAZY);

...
private
  IMG: Timage;
  function GetpImg: TImage;
  procedure SetpImg(const AValue: TImage);
public
  constructor Create;
  Destructor Destroy; override;
  property pImg: TImage read GetpImg write SetpImg;
...
...
function THra.GetpImg: TImage;
begin
  Result:= IMG;
end;
 
procedure THra.SetpImg(const AValue: TImage);
begin
  if (IMG <> AValue)
    IMG:= AValue;
  //ide amit a konstruktorban csinálnál
end;
....
 
H:=THra.Create;
H.pImg:= Image1;

{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, Unit2, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
var
   H: THra;
 
procedure TForm1.FormCreate(Sender: TObject);
var i,j: Integer;
begin
  H:=H.Create(Image1);
 
  for i:=0 to Image1.Height div 50 do
     for j:=0 to Image1.Width div 50 do
       H.Kresli(Image1,i,j);
   Image1.Canvas.Brush.Color:=clBlue;
 
   H.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
 
 
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
 
begin
    H.Kresli(Image1,Y div 50, X div 50);
end;
 
initialization
  {$I unit1.lrs}
 
end.

unit Unit2; 
 
{$mode objfpc}{$H+}
 
interface
 
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls;
 
  const
     N = 10;
     Width = 100;
     Height = 100;
 
 
  type
 
  { THra }
 
  THra = class
       D: Integer;
       Pole: Array [1..N] of TBitmap;
       Pole2: Array [1..5,1..4] of record
          JeOtoceny: boolean;
          pic: integer;
       end;
       Hrac: boolean;
       constructor Create(IMG: TImage);
       Procedure Kresli(IMG: TImage; S,R: Integer);
       Destructor Destroy;
  end;
 
implementation
 
{ THra }
 
constructor THra.Create(IMG: TImage);
 
var
   i,j,x,y: integer;
begin
   for i:= Low(Pole) to High(Pole) do
   begin
     Pole[i]:=TBitmap.Create;
     Pole[i].LoadFromFile('img'+IntToStr(i)+'.bmp');
   end;
 
   for i:=Low(Pole2) to High(Pole2) do
   begin
     for j:=Low(Pole2[i]) to High(Pole2[i]) do
     begin
       Pole2[i,j].JeOtoceny:=false;
       Pole2[i,j].pic:=0;
     end;
   end;
 
   for i:= Low(Pole) to High(Pole) do
   begin
     repeat
       x:=Random(5)+1;
       y:=Random(4)+1;
     until Pole2[x,y].pic <> 0;
     Pole2[x,y].pic:=i;
 
     repeat
       x:=Random(5)+1;
       y:=Random(4)+1;
     until Pole2[x,y].pic <> 0;
     Pole2[x,y].pic:=i;
   end;
 
   for i:=Low(Pole2) to High(Pole2) do
   begin
     for j:=Low(Pole2[i]) to High(Pole2[i]) do
     begin
       if Pole2[i,j].JeOtoceny then
         IMG.Canvas.Draw(i*Width,j*Height,Pole[Pole2[i,j].pic]);
     end;
   end;
end;
 
procedure THra.Kresli(IMG: TImage; S,R: Integer);
begin
   IMG.Canvas.Rectangle(S*D,R*D, S*D+D+1,R*D+D+1); // ebben a sorban jelzi a hibat
end;
 
destructor THra.Destroy;
var i: integer;
begin
for i:=Low(Pole) to High(Pole) do
  Pole[i].Free;
end;
 
end.