[Neftali [Germán.Estévez]]

Te lo pongo de memoria (quiero decir que lo he hecho directamente sobre el editor, no lo he compilado, así que si hay algun error ya dirás...)

Código Delphi [-]

var
    i:integer;
    StrSQL:string;
    StrNames:string;
begin
    // Preparamos la sentencia
    StrSQL := 'SELECT * FROM EMPLEADOS WHERE Nombre IN (%s)';

    // recorremos el memo con todos los nombres
    for i := 0 to (Memo1.Lines.Count - 1) do begin
        // le añadimos la coma si hace falta
        if (i > 0) then begin
            StrName := StrNames + ',';
        end;
        // nombre
        StrName := StrNames + QuotedStr(Memo1.Lines[i)]);
    end;

    StrSQL := Format(StrSQL,[StrNames]);

Si los nombres en el memo son:

YMN1016120001
YMN1016120002
YMN1016120003
YMN1016120004
YMN1016120005

La SQL (si no me he dejado nada) debería quedar algo así:

Código SQL [-]
SELECT * FROM EMPLEADOS WHERE Nombre IN ('YMN1016120001','YMN1016120002','YMN1016120003','YMN1016120004','YMN1016120005')