procedure TForm1.InicializaGridBuffer;
var
nRow, nCol : integer;
begin
StringGrid1.DeFaultColWidth := 35;
StringGrid1.FixedCols := 0;
StringGrid1.Cells[0,0] := 'Addr';
StringGrid1.Refresh;
for nCol := 0 to 15 do
begin
for nRow:= 0 to StringGrid1.rowCount-1 do
begin
if (nRow=0) then
StringGrid1.Cells[nCol,nRow] := IntTohex(nCol,2)
else
StringGrid1.Cells[nCol,nRow] := 'FF';
end;
end;
end;