[roman]

Una sugerencia:

Código Delphi [-]
procedure TCrusserComboBoxEx.fLectura(Valor: Boolean);
begin
  bReadOnly := Valor;
  if bReadOnly then begin
    Color := clBtnFace;
    Style := csSimple;
    SendMessage(EditHandle, EM_SETREADONLY, 1, 0);
  end else begin
    Color := clWindow;
    Style := csDropDown;
    SendMessage(EditHandle, EM_SETREADONLY, 0, 0);
   end;
end;

EditHandle es el identificador del control de edición del ComboBox.

// Saludos