Sc_DragMove мерцание при первом захвате

[HellMercenariess]

Всем добра!
Мерцает, сильно мерцает вся форма если захватить один обьект и тащить не отпуская, после при повторном захвате мерцает только последний перетаскиваемый обьект.
Если захватить повторно тот же то мерцание почти незаметно

procedure TForm1.BetaMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var I:integer;
begin
   for i:=0 to Created do
 if  Sender=Letteren[i] then
  begin
 activ:=i;
 Break;
   end;

 Captured:=True;
 Cursor:=CrhandPoint;
   ReleaseCapture;
Letteren[activ].Perform(WM_SYSCOMMAND, SC_DRAGMOVE, 0);
  
end;

procedure TForm1.BetaMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

Captured:=False;
 Cursor:= crDefault;
end;

[kropotkina-alice]

DoubleBuffered...

[HellMercenariess]

Проблема до сих пор не решена, все страшно мерцает.
дубльбуфер в трю.

[kropotkina-alice]

Перемещаем Button2 по форме:

procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;
begin
  ReleaseCapture;
  Button2.perform(WM_SysCommand,SC_DragMove,0);
end;

[HellMercenariess]

Только что потащил нижний край формы, кнопки не мерцают, зато мерцают все многочисленные панельки все дружно!