AdrBase,AdrLongint:PLongint;

// Создаем ...

BLOCK_SIZE := 65536;
FS := BLOCK_SIZE;
HFile := FileCreate('C:\Longint.zzz');
HMap  := CreateFileMapping( HFile, NIL, PAGE_READWRITE, 0, BLOCK_SIZE, NIL );
AdrBase := MapViewOfFile(HMap, FILE_MAP_WRITE,0,0,BLOCK_SIZE );

// когда добавляем очередной longint, то в случае, если некуда уже писать
// делаем

SetFilePointer(HFile, FS + BLOCK_SIZE, nil,FILE_BEGIN);

UnmapViewOfFile(AdrBase);
CloseHandle(HMap);
SetEndOfFile(HFile);

HMap  := CreateFileMapping( HFile, NIL , PAGE_READWRITE, 0,FS,nil);
AdrBase := MapViewOfFile(HMap, FILE_MAP_WRITE, 0,0,FS);

AdrLongint := Pointer(Longint(AdrBase) + LONGINT_SIZE * LongintCount);=
AdrLongint^ := NewLongintValue;

LongintCount := LongintCount + 1;