Database:

SCRIPT
BEGIN

EXECUTE IMMEDIATE 'CREATE TABLE "MasterTable0"
(
"ID" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0, INCREMENT BY 1),
"CODE" VARCHAR(25) COLLATE "ANSI",
"DESCRIPTION" VARCHAR(50) COLLATE "ANSI",
CONSTRAINT "MasterTable0_PK" PRIMARY KEY ("ID"),
CONSTRAINT "MasterTable0_Code" UNIQUE ("CODE")
)';

EXECUTE IMMEDIATE 'CREATE TABLE "MasterTable"
(
"ID" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0, INCREMENT BY 1),
"CODE" VARCHAR(25) COLLATE "ANSI",
"DESCRIPTION" VARCHAR(50) COLLATE "ANSI",
"ID0" INTEGER,
CONSTRAINT "MasterTable_PK" PRIMARY KEY ("ID"),
CONSTRAINT "MasterTable_Code" UNIQUE ("CODE"),
CONSTRAINT "MasterTableToMasterTable0" FOREIGN KEY ("ID0") REFERENCES "MasterTable0" ("ID")
   ON UPDATE NO ACTION ON DELETE NO ACTION
)';

EXECUTE IMMEDIATE 'CREATE TABLE "MasterTable2"
(
"ID" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0, INCREMENT BY 1),
"CODE" VARCHAR(25) COLLATE "ANSI",
"DESCRIPTION" VARCHAR(50) COLLATE "ANSI",
"ID0" INTEGER,
CONSTRAINT "MasterTable2_PK" PRIMARY KEY ("ID"),
CONSTRAINT "MasterTable2_Code" UNIQUE ("CODE"),
CONSTRAINT "MasterTable2ToMasterTable0" FOREIGN KEY ("ID0") REFERENCES "MasterTable0" ("ID")
   ON UPDATE NO ACTION ON DELETE NO ACTION
)';

EXECUTE IMMEDIATE 'CREATE TABLE "DetailTable"
(
"ID" INTEGER GENERATED BY DEFAULT AS IDENTITY (START WITH 0, INCREMENT BY 1),
"MASTERID" INTEGER,
"MASTERID2" INTEGER,
"DESCRIPTION" VARCHAR(50) COLLATE "ANSI",
CONSTRAINT "DetailTable_PK" PRIMARY KEY ("ID"),
CONSTRAINT "DetailTableToMaster" FOREIGN KEY ("MASTERID") REFERENCES "MasterTable" ("ID")
   ON UPDATE NO ACTION ON DELETE NO ACTION,
CONSTRAINT "DetailTableToMaster2" FOREIGN KEY ("MASTERID2") REFERENCES "MasterTable2" ("ID")
   ON UPDATE NO ACTION ON DELETE NO ACTION
)';

END

Code:

procedure TdtmEDB.Error401;
begin
  tblMaster0.Active := True;
  DropConstraint;
  DropConstraint2;
  tblMaster0.Active := False;
  //
  tblMaster0.Active := True;
  tblMaster0.Active := False;
  AddConstraint;
  AddConstraint2;
  //
end;

procedure TdtmEDB.DelInsM0R1;
begin
  if tblMaster0.Locate('ID', 1, []) then
  begin
    tblMaster0.Delete;
  end;
  tblMaster0.Append;
  tblMaster0.FieldByName('ID').AsInteger := 1;
  tblMaster0.FieldByName('CODE').AsString := '001';
  tblMaster0.FieldByName('DESCRIPTION').AsString := '001';
  tblMaster0.Post;
end;

procedure TdtmEDB.Error402;
begin
  tblMaster0.Active := True;
  try
    DropConstraint;
    AddConstraint;
  finally
    DelInsM0R1;
    tblMaster0.Active := False;
  end;
end;