Перемещение формы за компонент

[Zeraim]

Здрасте, возник вопрос, я сделал чтобы окно программы перетаскивалось если перетаскивать Image :

procedure TEye.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
DD := true;
DDX := X;
DDY := Y;
end;

procedure TEye.FormCreate(Sender: TObject);
begin
DD := false;
end;

procedure TEye.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
if DD = true then
  begin
  Eye.Left := Eye.Left + (X - DDX);
  Eye.Top :=  Eye.Top + (Y - DDY);
  end;
end;

procedure TEye.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
DD := false;
DDX := 0;
DDY := 0;
end;

Как это можно сделать еще? Просто мне кажется что мой способ неграмотный.

[Witaliy]

Ну це норамльний спосіб...

[Квэнди]

1. DragnDrop никакого отношения к этому не имеет
2. Обсуждали многократно и было представлено множество способов, так что в поиск.
закрыто.