[MAXIUM]

Código Delphi [-]
// Avisa que este campo no puede ser nulo.
procedure TForm1.DBEdit5Exit(Sender: TObject);
begin
     If Trim(DBEdit5.Text) = '' then
     Begin
          ShowMessage('Debe ingresar un nombre o se borrara este registro');
          DBEdit5.SetFocus;
     End;
end;

// Elimina el registro cuyo campo requerido sea nulo.
procedure TForm1.IBDataSet1BeforePost(DataSet: TDataSet);
begin
     If Trim(DBEdit5.Text) = '' then IBDataSet1.Delete;
     IBDataSet1.Edit;
end;