program Project1;

{$APPTYPE CONSOLE}

uses
 SysUtils,
 classes,
 windows;

var list:TStringList;
   i:integer;

procedure pars(str:string);
var l:TstringList;
   buf:string;
begin
l:=TStringList.Create;
l.LoadFromFile(str);
buf:=l.Text;
repeat
if pos('<td> <i class=\"muted\" style=\"font-size:small\">',buf)=0 then break;
delete(buf,1,pos('<td> <i class=\"muted\" style=\"font-size:small\">',buf)+45);
delete(buf,1,pos('href=\"/node/',buf)+11);
list.Add(copy(buf,1,pos('\"',buf)-1));
until false;
l.Free;
end;

procedure obxod1(path:string);
var
FD : TWin32FindData;
FH : THandle;
begin
FH := FindFirstFile(PChar(path+'*.*'), FD);
repeat
 if (FH<>INVALID_HANDLE_VALUE) and (FD.cFileName<>string('.')) and (FD.cFileName<>string('..')) then
 begin
 if (FD.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY then
                                                 begin
                                                 obxod1(path+FD.cFileName+'\');
                                                 end
                                                 else pars(path+FD.cFileName);
                                                 //list.Add(path+FD.cFileName);
 end;
until FindNextFile(FH, FD) = false;
end;

begin
list:=TStringList.Create;
obxod1('folder1\');
list.SaveToFile('result.txt');
list.Free;
end.

var f:TextFile;
...
writeln(f, copy(buf,1,pos('\"',buf)-1));