bild auf screenshot "legen"

[JWeis]

hi leude

ich hab son problem:

ich mach mit meinemprog nen screenshot und den lass ich dan auf meiner ganzen form zeigen.

Delphi-Quellcode:

function GetScreenShot: TBitmap;
var
  Desktop: HDC;
begin
  Result  := TBitmap.Create;
  Desktop := GetDC(0);
  try
    try
      Result.PixelFormat := pf32bit;
      Result.Width := Screen.Width;
      Result.Height := Screen.Height;
      BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, Desktop, 0, 0, SRCCOPY);
      Result.Modified := True;
    finally
      ReleaseDC(0, Desktop);
    end;
  except
    Result.Free;
    Result := nil;
  end;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.Bitmap := GetScreenShot;
end;

so nun will ich, wenn ich irgendwo draufklicke an der position dan ein bild auftaucht.
kan mir jemand helfen.??