写入速度的问题。。。 ( 积分: 50 )

最近在做一个关于写文件的东东，其中有一个问题很是不解：单线程全速写文件比多线程写文件要快?! ---我也不知道这个结论对不对，所以来问一下。
注：每一个线程对应一个文件。下面是写文件的代码。其中FIndex为线程的顺序。。。这个不会有重复的。
procedure TTestThr.Execute;
var
FileStr: String;
FileHandle: integer;
Str: String;
begin
{ Place thread code here }
Str:= '我们都是中国人,我们都是中国人,我们都是中国人,';
Str:= Str+ Str+ Str+ cNewLine;
FileStr:= 'ceshi'+ IntToStr(FIndex)+ '.txt';
FileHandle := FileCreate(FileStr);
try
while not Terminateddo
begin
FileWrite(FileHandle, Str[1], Length(Str));
//Sleep(1);
end;
finally
FileWrite(FileHandle, '#13', 1);
FileClose(FileHandle);
end;
end;