ShowColorDlg example for Delphi

procedure TForm1.ShowColorDlg1Click(Sender: TObject); 
var
   nRet: L_INT; 
begin

   LEADDlgColor1.DlgFlags:= DLG_COLOR_SHOW_OLDCOLOR              Or
                            DLG_COLOR_SHOW_NEWCOLOR              Or
                            DLG_COLOR_SHOW_NAME                  Or
                            DLG_COLOR_COLORSPACE_SHOW_HUE        Or
                            DLG_COLOR_COLORSPACE_SHOW_BRIGHTNESS Or
                            DLG_COLOR_COLORSPACE_SHOW_WHEEL      Or
                            DLG_COLOR_COLORSPACE_SHOW_RGB        Or
                            DLG_COLOR_COLORSPACE_SHOW_CMY        Or
                            DLG_COLOR_COLORSPACE_SHOW_CMYK       Or
                            DLG_COLOR_COLORSPACE_SHOW_LAB        Or
                            DLG_COLOR_COLORMODEL_SHOW_RGB        Or
                            DLG_COLOR_COLORMODEL_SHOW_HSB        Or
                            DLG_COLOR_COLORMODEL_SHOW_HLS        Or
                            DLG_COLOR_COLORMODEL_SHOW_CMY        Or
                            DLG_COLOR_COLORMODEL_SHOW_CMYK       Or
                            DLG_COLOR_COLORMODEL_SHOW_LAB; 

   LEADDlgColor1.SelectedColor:= RGB ( 255, 255, 255 ); 
   LEADDlgColor1.LEADImage:= LEADImage1; 
   nRet:= LEADDlgColor1.ShowColorDlg ( Self ); 
   if ( nRet = SUCCESS_DLG_OK ) then
   begin
      LEADImage1.Fill ( LEADDlgColor1.SelectedColor ); 
   end; 
end;