[Delphi] Coś jak BeginUpdate w TForm

Mam procedurę w której zmieniam masowo położenie komponentów na formie - i działa wszystko ale widać każde zniknięcie i pojawienie się komponentu w nowym miejscu i wolniej się to robi - istnieje coś takiego jak BeginUpdate i EndUpdate które jest w ListBoxie - nigdzie nie daje Application.ProcessMessages a DoubleBuffered odpada tutaj :/

LockWindowUpdate() + F1