TÉMA:

procedure TForm1.csempekeprekatt(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var i: byte;
begin
     for i:=0 to forrascsempedb-1 do
     begin //Csempeképre kattintottunk?
       if (X>=csempekepek[i+1].Left) and (X<=csempekepek[i+1].Left+csempekepek[i+1].width) and (Y>=csempekepek[i+1].Top) and (Y<=csempekepek[i+1].Top+csempekepek[i+1].height) then
       begin
            if vanatrakandocsempe=false then
            begin
              atrakandocsempe:=TImage.Create(Self);
              atrakandocsempe.Parent:=self;
              atrakandocsempe.Left:=X;//+csempekHelye.HorzScrollbar.position;
              atrakandocsempe.Top:=Y;//+csempekHelye.VertScrollbar.position;
              atrakandocsempe.width:=csempeszel;
              atrakandocsempe.height:=csempemag;
            end;
            atrakandocsempe.canvas.copyrect(Rect(0,0,csempeszel,csempemag),csempekepek[i+1].canvas,Rect(X,Y,X+csempeszel,Y+csempemag));
            vanatrakandocsempe:=true;
            Break;
       end;
     end;
end;