Aún no tengo claro el asunto este pero el problema no estará aquí
Código Delphi
[-]
if k <= 16 then begin StringGrid1.Cells[k,q] := IntToHex(Buffer[i],2);
Inc(k);
end
else begin
k := 1;
Inc(q);
StringGrid1.Cells[k,q] := IntToHex(Buffer[i],2);
end;
Salud OS