多线程同时往一个文件里写数据需不需要进行同步？

多线程里用这种方法写同时往一个文件里写数据需不需要进行同步？为什么？var
  logfile: integer;
  tmp : String;//写到txt文件里的内容
begin
    ……
    logfile := fileopen('FilePath', fmOpenWrite);
    fileseek(logfile, 0, 2);
    filewrite(logfile, #13#10, length(#13#10));
    filewrite(logfile,tmp[1],Length(Tmp));
    fileclose(logfile);
end;