Proyecto ISP AT89S51/52

[[egostar]]

Aún no tengo claro el asunto este pero el problema no estará aquí

Código Delphi [-]
if k <= 16 then begin //Si le pones 17 que pasa?
   StringGrid1.Cells[k,q] := IntToHex(Buffer[i],2);
   Inc(k);
end
else begin
       //Vuelvo a la primera columna, bajo una fila
       k := 1;
       Inc(q);
       StringGrid1.Cells[k,q] := IntToHex(Buffer[i],2);
end;

Salud OS