... thanks quedo asi... cColor:= cClrToCode( ChooseColor( , 4) ), esto devuelve el valor CLR_ o el RGB(), el valor 4 evita que el usuario cree colores personalizados ya que muestra solo los colores basicos que son los que necesito, hasta me da de mas ya que necesitaba solo los 16 colores basicos, gracias... ...