busqueda de datos en SQL con TMEMO

[rgstuamigo]

Haber que tal así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
   qryinfo.Close;
   qryinfo.SQL.Clear;
   qryinfo.SQL.Add('SELECT * FROM EMPLEADOS WHERE Nombre IN ');
   qryinfo.SQL.Add('(');
   for  i:=0  to Memo1.Lines.Count - 1 do
   begin
    qryinfo.SQL.Add(QuotedStr(Memo1.Lines[i]));
    if i<>Memo1.Lines.Count - 1 then
     qryinfo.SQL.Add(',');
   end;
   qryinfo.SQL.Add(')');
   qryinfo.Open;
end;

Saludos...