Pegar numero do autoincremento no FB para gravar nas tabelas relacionadas.Como?

    function InsertSQL: String;
    begin
         Result := 'INSERT INTO TROCACHEQUES (TROCAID, NUMEROCHEQUE, VALOR) VALUES (GEN_ID(ID_TROCACHEQUE), 1), 
                         :NUMEROCHEQUE, :VALOR) RETURNING TROCAID';
    end;

   
   procedure InsertTrocaCheques;
   var
       Query: TSQLQuery;
       IdTrocaCheque: Integer;
   begin
        Query := TSQLQuery.Create(nil);
        try
           Query.SQLConnection := SuaConexao; //sua conexão que estará definida de alguma forma
           Query.SQL.Add(InsertSQL);
           Query.ParamByName('NUMEROCHEQUE').AsString := '123456';  
           Query.ParamByName('VALOR').AsCurrency := 123,80;

           Query.Open;

           IdTrocaCheque := Query.FieldByName('TROCAID').AsInteger;

           //Insira seus métodos de controles aqui pra trabalhar com o IdTrocaCheque

        finally
            Query.Close; //é bom fechar querys abertas mesmo que vá destruir o objeto na sequência
            FreeAndNil(Query);
        end;
   end;

  With DM.sqlQuery1 do
  Begin
    SQL.Clear;
    SQL.Add('INSERT INTO ENTRADAS(ENTRADA_ID,DETALHE_ENTRADA) VALUES(GEN_ID(GEN_ENTRADAS_ID,1),:DET_ENT) RETURNING ENTRADA_ID');
    ParambyName('DET_ENT').AsString := 'INSERINDO';
    Open;
  End;

  eID := DM.sqlQuery1.FieldByName('ENTRADA_ID').AsInteger;