пихай все в файлстрим. и представляй его в виде матрицы.
написано от балды:
где-то обявление и открытие fs : tfilestream;
delphi Код:
Function GetCellValue(x,y:integer):boolean;
begin
fs.position := round(x*sqrt(fs.size)+y);
fs.read(result,1);
end;
Procedure SetGetCellValue(x,y:integer; value:boolean);
begin
fs.position := round(x*sqrt(fs.size)+y);
fs.write(value,1);
end;