[__cadetill]

ya que dices que es para hacer un report (un listado), yo lanzaria una Query por separado

 
var Q : TIBQuery
begin
    Q := TIBQuery.Create;
    try
        Q.Database := IBDataBase1;
        Q.SQL.Text := 'Select * from PARTE ' +
                               ' where MES = ' variableconnumeromes;
        Q.Open;
        // Lanzar Listado
    finally
        FreeAndNil(Q);
    end;
end;

Espero te sirva