درگ لیبل روی فرم

[NewLife2008]

سلام.
من قصد دارم لیبلهای روی فرم رو در زمان اجرا حرکت بدم.
یکسری کد هم نوشتم ، اما حرکت لیبلها روی فرم خیلی روان نیست.

البته من روی image درگ کردم.


procedure TFrm1.Image1DragDrop(Sender, Source: TObject; X,
Y: Integer);
begin
if Source is Tlabel then
begin
Tlabel(Source).Left := X;
Tlabel(Source).Top := Y;
end;
end;

procedure TFrm1.Image1DragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
Accept := true ;
end;

procedure TFrm1.Image1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbleft)and (FrmMain.L.Caption <> '') then
begin
FrmMain.L.Left := x;
FrmMain.L.Top := y;
FrmMain.L.Visible := true;
end;
end;

[vcldeveloper]

خصوصیت DoubleBuffer مربوط به Form را True کنید، ببینید که آیا بهتر میشه یا نه.