private
    { Private declarations }
    FMainFormOnLock: Boolean;

function TMainForm.LockDrawing(const AIgnoreLock: Boolean = False): Boolean;
begin
  Result := False;
  if (not FMainFormOnLock) or (AIgnoreLock) then
    try
      LockWindowUpdate(Self.Handle);
    finally
      FMainFormOnLock := True;
      Result := True;
    end;
end;

procedure TMainForm.UnLockDrawing;
begin
  TimerUnlockDrawing.Enabled := False;
  TimerUnlockDrawing.Enabled := True;
end;

procedure TMainForm.TimerUnlockDrawingTimer(Sender: TObject);
begin
  try
    TimerUnlockDrawing.Enabled := False;
    LockWindowUpdate(0);
  finally
    FMainFormOnLock := False;
  end;
end;

//затем в любом месте:
  try
    MainForm.LockDrawing();
    //обновлялки-рисовалки
  finally
    MainForm.UnLockDrawing()
  end;

procedure TMainForm.FormCanResize(Sender: TObject; var NewWidth, NewHeight: Integer; var Resize: Boolean);
begin
  if FMainFormOnLock then
    Exit; //если мы сами заблокировали, значит, все под контролем, обходка не нужна

  Self.AlphaBlend := True;
  Self.AlphaBlendValue := 0;
  TimerIn.Enabled := True;
end;

procedure TMainForm.ApplicationEvents1Minimize(Sender: TObject);
begin
  TimerIn.Enabled := False; //распорочка, чтобы отключить "проявление" когда сворачиваем, т.к. тоже заходит в FormCanResize
end;

procedure TMainForm.TimerInTimer(Sender: TObject);
begin
  if AlphaBlendValue < 239 then
    AlphaBlendValue := AlphaBlendValue + 16
  else
  begin
    AlphaBlendValue := 255;
    TimerIn.Enabled := False;
    AlphaBlend := False;
  end;
end;