[lucho6007]

Hola, buenas tardes!
Podrías probar con el siguiente código:

Código Delphi [-]
var
  TipoGen:string;
begin
  TipoGen:= '(' + QuotedStr('Comedia') + ',' + QuotedStr('Drama') + ')';
  IBQueryInvent.SQL.Clear;
  IBQueryInvent.SQL.Add('select * from INVENTARIO where Genero IN '+ TipoGen);  // GENERO es tipo VARCHAR 
  IBQueryInvent.Open;
end;