This example checks for a valid entry in a TDBEdit control and calls the Abort procedure if the control is empty; Abort cancels the post before it happens.
procedure TForm1.PSQLTable1BeforePost(DataSet: TDataSet);
begin
if DBEdit1.Text = '' then
Abort;
end;