Randbeschriftung, ungefähr so
Delphi-Quellcode:
StringGrid1.FixedRows := 1;
StringGrid1.FixedCols := 1;
for Col := 1 to StringGrid1.ColCount do
StringGrid1.Cells[Col, 1] := IntToStr(Col);
for Row := 1 to StringGrid1.RowCount do
StringGrid1.Cells[1, Row] := IntToStr(Row);