[cloayza]

Estimado GINMARMENOR, en otro post le sugerí este cambio...

Código Delphi [-]
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'''; 
       }
      Memo1.Lines.Delimiter:=',';
      TipoGen2:=Memo1.Lines.DelimitedText;

  IBQueryInvent.SQL.Clear;

  IBQueryInvent.SQL.Add('select * from INVENTARIO where Genero IN '+ '(' + TipoGen2 + ')';  // GENERO es tipo VARCHAR 

  IBQueryInvent.Open;
end;

Saludos cordiales