TMemoryStream.SaveToFile not thread-safe?

[AncientHacker]

Weird. I'm doing this in a thread and it consistently bombs out with "File being accessed by another process".
Should not happen with the csFile as a global TCriticalSection, no?


For Loops := 1 To TestLoops Do
Begin
InMemStream := TMemoryStream.Create( );
Act := InMemStream.Write( Buf, Len );
Dest := 'C:\Mem.Fil';
csFile.Enter;
InMemStream.SaveToFile( Dest );
csFile.Leave;
InMemStream.Free;

End;

 

[roo0047]

Please explain where var Loops is being used within the do block...

Roo
Delphi Rules!