[Страдалецъ]

Ну тогда все просто:

Код:

procedure TForm24.Button1Click(Sender: TObject);
Var R,C: Integer;
begin
 StringGrid1.RowCount := 11;
 StringGrid1.ColCount := 11;
 for R := 1 to StringGrid1.RowCount - 1
 do StringGrid1.Cells[0,R] := IntToStr(R);
 for C := 1 to StringGrid1.ColCount - 1
 do StringGrid1.Cells[C,0] := Chr(C+64);
end;