Hvorfor virker det i det ene program med ikke i det andet

Procedure Savefile( DirectoryToFile: String; SearchDirectory: String;  SearchRec: TSearchRec );
var
  Fil: TextFile;
begin
  AssignFile(Fil, DirectoryToFile);
  if FileExists(DirectoryToFile) then
    Append(Fil)
  else
  begin
    ReWrite(Fil);
  end;
  Writeln(Fil, SearchDirectory + ';' + SearchRec.Name + ';' + IntToStr(SearchRec.Size) + ';');
  CloseFile(Fil);
end;

Function Findfiles( Directory: String; FilterFiles: String; IncludeSubDir: Boolean; SaveDirectoryToFile: String ): Integer;
var
  SearchRec: TSearchRec;
begin
  if FindFirst(IncludeTrailingBackslash(Directory) + FilterFiles,faAnyFile,SearchRec) = 0 then
  begin
    repeat
      if (SearchRec.Attr and faDirectory) = faDirectory then
      begin
        if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') and ( IncludeSubDir = True ) then
          FindFiles(IncludeTrailingBackslash(Directory) + SearchRec.Name,'*.*', True, SaveDirectoryToFile );
        end
        else
        begin
          SaveFile(SaveDirectoryToFile, Directory, SearchRec);
        end;
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Findfiles('C:\Documents and Settings\admin\Skrivebord\min findfunktion\test', '*.*', True, 'MineData.csv');
  Label1.Caption := IntToStr(Listbox1.Count);
end;

------------------

Den kode virker i et lille test program jeg har lavet.
filen
Sti;filenavn;Størrelse
Dette virker.

Når jeg så kopier koden over i et andet program ( det rigtig ) og bruger koden på samme måde, så virker det bare ikke.
filen
Sti;..;0
Dette virker IKKE. HVORFOR ?

//dl