[alexteam]

пихай все в файлстрим. и представляй его в виде матрицы.
написано от балды:
где-то обявление и открытие fs : tfilestream;

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;