[ПОТОКИ] Сыпется софт

[bakanaev]

function    TNewThread.SaveToFile(str:string; FileDir:String): string;

begin
 with  TFileStream.Create(FileDir,fmCreate) do begin
  write(str[1],Length(str));
  Free;
 end;
end;

Создается только файл, ни чего не записывается.
По поводу SaveToFile, она изначально правильно написана была.

function    TNewThread.SaveToFile(str:string; FileDir:String): string;
var f:TextFile;
begin
AssignFile(f,FileDir);
if not FileExists(FileDir) then
 begin
  Rewrite(f);
  CloseFile(f);
 end;
Append(f);
Writeln(f,str);
Flush(f);
CloseFile(f);
end;