program test1;
{$APPTYPE CONSOLE}
uses  windows;

procedure ListDir(const sPath:string);
var fdata:WIN32_FIND_DATA;
    hfind:cardinal;
begin

 hfind:= FindFirstFile(pChar(sPath+'\*'),fdata);
 if hfind = INVALID_HANDLE_VALUE then exit;
 while true do begin
  writeln(pChar(@fdata.cFileName));
  if not FindNextFile(hFind,fdata) then
   if GetLastError() = ERROR_NO_MORE_FILES then break;
 end;
end;

begin
 ListDir('c:\windows');
end.