[[Héctor Randolph]]

Hola coco0001

Una forma sencilla es construir una lista de números en un StringList y luego aprovechar la propiedad CommaText para obtener la serie de números separados por comas.

Código Delphi [-]
var
  Lista: TStringList;
  Numeros: String;
begin
  Lista:=TStringList.Create;

  Lista.Add(IntToStr(1));
  Lista.Add(IntToStr(2));
  Lista.Add(IntToStr(3));
  Numeros:=Lista.CommaText;

  AdoQuery1.SQL.Add('select * from tabla where campo in (arametro)')

  // Aquí envías el parámetro a tu consulta adoquery
  AdoQuery1.Parameters.ParamByName('parametro').AsString:=Numeros;
 .
 .
 .
  Lista.Free;
end;

Saludos