[sariman]

Код:

WM_PAINT:
begin
  GetClientRect(Wnd, aRect);
  FillRect(PS.hdc, aRect, COLOR_BTNFACE);
end;

Не помогло.
---------------------
Сделал так:

Код:

WM_PAINT:
begin
  GetClientRect(Wnd, aRect);
  DC := BeginPaint(Wnd, PS);
  FillRect(PS.hdc, aRect, COLOR_BTNFACE);
  EndPaint(Wnd, PS);
end;

Все работает!