[ecfisa]

Hola WPascal.

Probá de esta manera:

Código Delphi [-]
(* Descubre archivos, carpetas ocultos y elimina archivos .LNK. Devuelve nombres en TS *)
procedure MuestraYSacaLNK(const Ruta: string; TS: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Ruta+'*.*', $FF, SR) = 0 then
  begin
    repeat
      SetFileAttributes(PChar(SR.Name), FILE_ATTRIBUTE_NORMAL);
      if UpperCase(ExtractFileExt(SR.Name)) = '.LNK' then
        DeleteFile(Ruta + SR.Name)
      else if(SR.Name <> '.')and(SR.Name<>'..') then
        TS.Add(SR.Name)
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

Llamada:

Código Delphi [-]
begin
  Memo1.Clear;
  MuestraYSacaLNK('C:\TU_RUTA\', Memo1.Lines);
end;

Saludos.