Ajuda em criação de tela de Vendas no Delphi

procedure CommitVenda;
const
    SQLInsertVenda = 'INSERT INTO TESTEVENDA (ID) VALUES (GEN_ID(GEN_ID_TESTEVENDA, 1)) RETURNING ID';
   SQLInsertVendaProduto = 'INSERT INTO TESTVENDAPRODUTO (ID, ID_VENDA,) VALUES (GEN_ID(GEN_ID_TESTEVENDA_PRODUTO, :ID_VENDA)';
var
    IDVenda: Int64;
    Query: TQuery; //usarei hipoteticamente uma query 
begin
    Query := TQuery.Create;
    try
        Query.SQL.Add(SQLInsertVenda); 
        Query.Open; // Por que Open? o método RETURNING vai retornar o campo que você solicitar, por isso deve ser uma query de abertura

       if (not Query.IsEmpty) then
         IDVenda := Query.FieldByName('ID').AsLargeInt; // aqui tem o código da venda que você inseriu
       else
          IDVenda := 0;  //significa que a query está vazia e não foi possível obter o identificador da venda

      if IDVenda > 0 then
      begin
         Query.CloseAndClear;
         Query.SQL.Add(SQLInsertVendaProduto);
         Query.ParamByName('ID_VENDA').AsLargeInt := IDVenda;
         Query.Exec; // como não é uma query de abertura, utiliza o EXEC
      end;
    finally
      FreeAndNil(Query);
    end;
end;