Gracias funcionan los dos códigos aunque me decante por el que no aparece 'Quotedstr', y el código se quedaría como sigue pero leyendo en un Memo y así en modo de ejecución elegir los distintos generos que quiera.
Código SQL
[-]
var
TipoGen,TipoGen1,TipoGen2:string;
x:integer;
begin
for x:=1 to Memo1.Lines.count - 1 do;
begin
TipoGen:=Memo1.Lines[x];
TipoGen1:=TipoGen1+''''+TipoGen+''' , ';
end;
TipoGen2:=TipoGen1+'''0''';
IBQueryInvent.SQL.Clear;
IBQueryInvent.SQL.Add('select * from INVENTARIO where Genero IN '+ '(' + TipoGen2 + ')'; // GENERO es tipo VARCHAR
IBQueryInvent.Open;
end;
El último TipoGen2, lo año por que la cadena siempre acaba en coma, y así le añado un 0 para que lea un genero que nunca exista y me permita que funcione.
NOTA: En este caso el tema de comillas, la verdad que es increíble pero funciona.