Error AccessViolation que no consigo localizar

[[coso]]

Código Delphi [-]
function tornarMaxID(): integer;
var cadenaSQLID : string;
query_maxID : TQuery;
begin
     query_maxID := TQuery.Create(nil);
     query_maxID.DatabaseName := Modulo_Datos.NOG_Comer.DatabaseName;
     cadenaSQLID := 'SQLLLLLLLLLLLLLLL' ;
     query_maxID.SQL.Clear;
     query_maxID.close;
     query_maxID.SQL.Add(cadenaSQLID);
     query_maxID.open;
     Result := query_maxID.Fields[0].Asinteger;
     query_maxID.Close;
     FreeAndNil(query_maxID);
end;

Código Delphi [-]
            cadenaSQL := 'SQL 111111111';
            Ejecutar_SQL(cadenaSQL);         
            cadenaSQL := 'SQL 2222222';
            Ejecutar_SQL(cadenaSQL);

?, interpretais la sentencia sql? es bastante un nido de bugs esto radge

(mejor del BookMarkStr, el getbookmark, gotobookmark y freebookmark)

Código Delphi [-]
            Application.CreateForm (TfrmUnidadesPedidoVenta, frmUnidadesPedidoVenta);
            frmUnidadesPedidoVenta.CarregaDades(Cantidad,UnitatsServidesBD);
            frmUnidadesPedidoVenta.ShowModal;
            varDades := frmUnidadesPedidoVenta.rebreDades;
            varUnitatsRestants := frmUnidadesPedidoVenta.rebreUnitatsRestants;
            freeandnil(frmUnidadesPedidoVenta);

lo mismo que antes, mejor usar tal cual la f, el f := TFrmunidadesPedidoventa.create, que sea f variable local, el f.free en vez del freeandnil etc...yo crearia todas las forms asi, tal como ya te habia comentado. El error fijo q esta por estas cosas, por crear todo con variables globales y luego volviendolo a crear con el mismo nombre de variables sin liberar las anteriores. saludos ; )