[[Lepe]]

Puedes usar otra lista ¿no?

Código Delphi [-]
// lista1 la base de datos
// lista2 el stringlist con los discos duros
noExiste = TStringlist.Create;
for i:= 0 lista1.count-1 do
begin
   if lista2.indexOf(lista1[i]) = -1 then
      noExiste.Add(Lista1[i])
end;
if noExiste.Count > 0 then
   ShowMessage(' Se han eliminado los siguientes discos ' + #13#10 + noExiste.CommaText);

Cuando te mostrará los discos duros que han sido reemplazados.

Saludos