procedure TForm1.NovaBarevnaPaleta(var Msg : TWMQueryNewPalette);
var
  Palette: HPALETTE;
begin
  if (Palette <> 0) then begin
    Msg.Result := RealizePalette(DC);

    if (Msg.Result <> GDI_ERROR) then
      InvalidateRect(Handle, nil, False);
  end;
end;