[NumLock]

смотря какие строки: short или long. с первыми проблем нет:

Код:

var
  arr: array [0..1, 0..3] of String[7];
  x, y: Byte;
  hFile: THandle;
  Dummy: DWORD;
begin
  Memo1.Clear;
  for x:=0 to 1 do
    for y:=0 to 3 do
      arr[x, y]:=IntToHex(x shl 8 or y, 7);
  hFile:=CreateFile('Project1.txt', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0);
  WriteFile(hFile, PByte(@arr[0, 0])^, SizeOf(arr), Dummy, nil);
  CloseHandle(hFile);
end;

вторые указателями хранятся в массиве.