[[gluglu]]

Código Delphi [-]
procedure TNombre.IBQueryAfterPost(DataSet: TDataSet);
begin
  If IBQueryCLAVE.AsVariant = Null then IBQuery.Delete;
end;