Image Pos. auf Form per Mouse ändern

[Christian18]

hallo,

ich möchte die Position des Image, was ich auf meiner Form habe per Mouse ändern. das funktioniert auch schon so weit. Jetzt habe ich aber totzdem ein kleines Problem. Wenn ich auf das Image klicke und verschieben will, dann geht die mouse im image auf die position 0,0. Und jetzt meine Frage. Wie kann ich es machen, dass die Mouse da stehen bleibt, wo ich geklickt habe. Also wenn ich das Image an den Punkt 10, 10 anfasse, das die mouse dann auch bei den Punkt 10, 10 bleibt. So ich schicke einfach mal meinen Quellcode mit den ich bis jetzt schon fertig habe.

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  z : Integer;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
z:=1;
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
z:=0;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if z=1 then begin
    Image1.Left:=x+Image1.Left;
    IMage1.Top:=y+Image1.Top;
  end;
end;

end.

Mit freundlichen Grüßsen

Christian18