procedure TMainForm.LockDrawing;
begin
//1 вариант:
    LockWindowUpdate(Self.Handle);

//2 вариант:
//    SendMessage(ClientHandle, WM_SETREDRAW, 0, 0);

//3 вариант:
//  Application.ProcessMessages; // finish any pending updates
//  SendMessage(self.ClientHandle, WM_SETREDRAW, 0, 0);
end;

procedure TMainForm.UnLockDrawing;
begin
//перенос в таймер
  TimerUnlockDrawing.Enabled := False;
  TimerUnlockDrawing.Enabled := True;
end;

procedure TMainForm.TimerUnlockDrawingTimer(Sender: TObject);
begin
//1 вариант
  TimerUnlockDrawing.Enabled := False;
  LockWindowUpdate(0);

//2 вариант
//    SendMessage(ClientHandle, WM_SETREDRAW, 1, 0);
//    RedrawWindow(ClientHandle, nil, 0, RDW_FRAME
//      or RDW_INVALIDATE or RDW_ALLCHILDREN
//      or RDW_NOINTERNALPAINT or RDW_UPDATENOW);

//3 вариант
//  SendMessage(self.ClientHandle, WM_SETREDRAW, 1, 0);
//  RedrawWindow(self.ClientHandle, nil, 0,
//    RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN or RDW_UPDATENOW);
end;