procedure TForm1.ZmenaBarevnePalety(var Msg : TWMPaletteChanged);
var
  Palette: HPALETTE;
begin
  if ((Palette <> 0) and (THandle(TMessage(Msg).wParam) <> Handle)) then begin
    if (RealizePalette(DC) <> GDI_ERROR) then
      UpdateColors(DC);

    Msg.Result := 0;
  end;
end;