durch maus gedrückt label verschieben, wie geht das?

[the_beginner]

hallo leute,

ich muss in meinem programm durch linksklick labels an der geklickten position erstellen, was kein problem ist, aber wenn auf das label geklict wird und die maustaste gedrückt gehalten wird, dann soll man mit der mausbewegung das label verschoben werden, bis man die maustaste loslässt.

das erstelle nper klick läuft schon, das verschieben aber noch nicht so ganz. sobald ich auf das objekt klicke und es verschiebe, flackert es immer zwischen dem oberen linksn formularrand und der aktuellen positin hin un der. außerdem funtkioniert es nicht die onmousedown funktion wieder auf leer zu setzen.

hier mein quellcode:

Delphi-Quellcode:

type
  TXLabel = Class(TLabel)
   private
    procedure LabelMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure LabelMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure LabelMouseUp(Sender: TObject; Button: TMouseButton;
     Shift: TShiftState; X, Y: Integer);
   public
   end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  a:=TXLabel.Create(form1);
  WITH ae DO
   BEGIN
     parent:=form1;
     Name:='c'+IntToStr(nummer);
     Caption:='c'+IntToStr(nummer);
     inc(nummer);
     Color:=clred;
     Top:=y;
     Left:=x;
     Visible:=true;
     OnMouseDown:=LabelMouseDown;
   END;
end;

procedure TXLabel.LabelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  OnMouseMove:=LabelMouseMove;
end;

procedure TXLabel.LabelMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  left:=x;
  top:=y;
end;

procedure TXLabel.LabelMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
end;

ich hoffe ihr könnt mir helfen!

vielen dank
the_beginner