[Cesar82]

It also doesn't work with delphi 2010.

Using procedure works perfectly.

procedure ColorPanelCreate(hParent: HWND; hLeft, hTop, hWidth, hHeight: Integer; out CstmPanel: TCusPanel);