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

Ну заполнить не сложно:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var Row,Col: Integer;
begin
 for Row := StringGrid1.FixedRows to StringGrid1.RowCount - 1
 do for Col := StringGrid1.FixedCols to StringGrid1.ColCount - 1
    do StringGrid1.Cells[Col,Row] := IntToStr(Random(100));
end;