[ecfisa]

Me olvidaba... Si necesitas que el resultado resida en un TStringList, sería:

Código Delphi [-]
var
  TStr: TStrings;
begin
  TStr:= TStringList.Create;
  try
    MuestraYSacaLNK('C:\TEMPORAL\',TStr);
    // Operaciones que desees
    //...
  finally
    TStr.Free;
  end;

Saludos.