Components for Delphi and C++ Builder.

if TDBLookupComboboxEh(Sender).ListSource.DataSet.FieldByName('ServiceCount').AsInteger = 0

procedure TForm1.Button1Click(Sender: TObject);
var
  myButton: TButton;
begin
  myButton:=TButton.Create(DBLookupComboBoxEh1);
  myButton.Parent:=DBLookupComboBoxEh1;
  myButton.OnClick:=Button2.OnClick;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ShowMessage(TDBLookupComboboxEh(TControl(Sender).Parent).ListSource.DataSet.FieldByName('IDRAZRABND').AsString);
end;