Перетаскивание формы при BorderStyle := bsNone

[lexaltd]

Нужно перетаскивать форму при BorderStyle := bsNone
Пытался сделать так , форма двигается , но рывки , мигание и тормоза

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  flag := true;
  x1 := X - Form1.Left;
  y1 := Y - Form1.Top;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 if flag then
  begin
    Form1.Left := X - x1;
    Form1.Top :=  Y - y1;
  end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 flag := false;
end;

Можете подсказать решение
Зарание спасибо

[mihali4]

Подсказываю:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Perform (WM_SYSCOMMAND,SC_MOVE+2,0);
end;

[Kotofff]

Попробуй :

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

P.S.
mihali4, прости опоздал я как всегда ...

[lexaltd]

Спасибо mihali4 и Kotofff - то что доктор прописал