Para tratar una serie de 0 a 4095 no hagas dos bucles, haz uno solo.
Código Delphi
[-]
for j:=0 to 4095 do
begin
Fila:=j mod 16
columna:= j div 16
StringGrid1.Cells[columna,fila] := IntToHex(Buffer[j],2);
end:
Asi no pierdes ni uno solo de los valores ni repites ninguno.