Example: BeforePost, Abort

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.MySQLTable1BeforePost(DataSet: TDataSet);
begin
   if DBEdit1.Text = '' then
      Abort;
end;