Var
　i: Longint;
　FS: TFileStream;
Begin
　FS := TFileStream.Create('map.dat',fmOpenRead);
　Try
　　For i := 0 To 40000 Do
　　　FS.ReadBuffer(map[i],SizeOf(map[i]));
　Finally
　　FS.Free;
　End;
End;