#pas
with Control{$ifndef F_P}^{$endif} do
begin
  if (_prop_ReadOnly <> 0) then OnChange := _OnChange;
  Text := _prop_Text; //кто тут говорил, что не инициализируется?
  OnSelChange := _OnClick;
  if ManFlags and $8 > 0 then OnDrawItem  := _OnDrawItem;
  if (Count > 0) and (_prop_ReadOnly = 0) then CurIndex := 0;  //а вот и виновник события из первого поста
end;