[Denton]

Здраствуйте, помогите решить следующую проблему.
Мне нужно переместить по форме панель. Я указал в ней следующие свойства: DragKind=dkDock, DragMode=dmAutomatic, но после перемещения у панели появляется заголовок с кнопкой закрытия. Как сделать перемещение объекта так чтобы он сохранил свою первоначальную форму?

[Decoding]

Код:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   ReleaseCapture;
   Panel1.Perform( WM_SYSCOMMAND, $F012, 0 );
end;

[Denton]

Спасибо, с панелью разобрался.
Теперь возникла другая проблема. Нужно переместить рисунок, я сделал следующим образом:
...
private
DragPoint : TPoint;
...
procedure TForm1.RxGIFAnimator1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
DragPoint:=Point(X , Y );
end;

procedure TForm1.RxGIFAnimator1MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
begin
IF (ssLeft IN Shift) Then
Begin
TControl(Sender).Left:=TControl(Sender).Left + x - DragPoint.X;
TControl(Sender).Top :=TControl(Sender).Top + y - DragPoint.y;
End;

end;
...
но при перемещении он начинает "мелькать", как можно избавится от мельтешения?