Brian

type TComboboxHelper = class helper for TCombobox public procedure DoOnChange; end; implementation { TComboboxHelper } procedure TComboboxHelper.DoOnChange; begin if Assigned(OnChange) then Onchange(Self); end; I would put this to a helper to save me problems when I change the procedure on combobox OnChange. procedure TForm1.Panel1_Click (Sender: TObject); begin ComboBox1.ItemIndex := 1; ComboBox1.DoOnChange; end;