HEX редактор

  for i := 0 to H do begin
    STmp := IntToHex(Arr[i], 2);
    //ShowMessage(STmp);
      //hexedit.RowCount:=i;
      //for Len:= 0 to 15 do begin
    hexedit.Cells[i+1,j]:=STmp;
          //j:=j+1;
        // end;
    hexedit.RowCount:= a+2;
    hexedit.Cells[0,i+1]:=IntToStr(i);
 
      status.Position:=i;
    end;

var
a, b, i, j, Size, H, Len, n, t : Integer;
save : TSaveDialog;
st :string;
begin
a:=hexedit.RowCount-1;
  j := 1;
  n:=0;
  t :=1;
    //status.Position:=0;
    for i := 0 to a * 16 do begin
      st:= hexedit.Cells[n+1,j];
       b := StrToInt(st);
       ShowMessage(IntToStr(b));
       Arr[i]:= b;//STmp;
      Inc(n,1);
         if n = 16 then
         begin
           Inc(j,1);
           Inc(t,1);
           n :=0;
         end;
      //status.Position:=i;
    end;