#pas
  inherited;
  with Control{$ifndef F_P}^{$endif} do
  begin
    SetStrings(_prop_Strings);
    Caption := _prop_Text;
    OnSelChange := _OnClick;
    if ManFlags and $8 > 0 then OnDrawItem  := _OnDrawItem;
  end;

#pas
  Control.Perform(WM_SETREDRAW, RDW_NO, 0);
  Control.Clear;