Заполнение StringGrid

[Альбертъ]

Нужно каждое десятое значение массива заносить в StringGrid, подскажите как, plz!

[newmister]

a:=10;
While a<=high(mas) do
begin
  StringGrid1[i,1]:=mas[a];
  inc(i);
  a:=a+10;
end;

типа такого пойдет?

[Roof]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Sg: TStringGrid;
    Button1: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 mass: array [1..100] of real;
 i, n, m: byte; //byte - максимум 255
begin
 Randomize;   //генератор псевдослучайных чисел
 n:= 1;
 m:=1;
 for i := 1 to 100 do begin
   mass[i]:= Random(100)/10; //заполняем массив псевдослучайными числами
   if i mod 10 = 0 then begin  //если остаток от деления на 10 равен 0
     Sg.Cells[m, n]:= FloatToStr(mass[i]); //выводим непосредственно уже :)
     m:= m+1;
     if i mod 40 = 0 then begin
      n:= n+1;     //чтобы перескакивать на следующую строку в Sg
      m:= 1;      //столбец снова 1
     end;
   end;
 //для визуальной проверки
   Label1.Caption:= Label1.Caption + '  ' + FloatToStr(mass[i]);
   if i mod 30 = 0  then
     Label1.Caption:= Label1.Caption + #13;
 end;
   
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Sg.RowCount:= 5;
 Sg.ColCount:= 5;
end;

end.