Klasika, problém objavím po odoslaní príspevku. Chyba bola vo funkcii NewPrimaryKey
function NewPrimaryKey: Integer;
begin
dtmdBasic.conFOC.Transaction.StartTransaction; // Doplnené. Doteraz to fungovalo.
try
Result := dtmdBasic.conFOC.ExecSQLScalar('SELECT GEN_ID(COMMON_ID, 1) AS PK'+
' FROM RDB$DATABASE');
Assert(Result > 0, ' PrimaryKey: PKey = 0 ');
...
end;