объявляешь процедуру MyBeforePost в классе формы

void MyBeforePost(TDataSet *DataSet);

описываешь

void __fastcall TForm1::MyBeforePost(TDataSet *DataSet)

{
if (DBEdit1->Text == "")
Abort();
}



begin
DataSetS := TADODataSet.Create( nil );
***
DataSetS.BeforePost := MyBeforePost;
***
end;

немножко в перемежку с С++, но разницы нет.

А ссылки они всегда одни, в HELP.