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;