Jak chcesz przetestować pętlę for to możesz zrobić tak jak poniżej. We wszystkich kolumnach w 2 pierwsze
wiersze wstawiana jest losowa liczba z zakresu od 1 do 10 włącznie, zaś w trzeciej kolumnie pojawia się ich
suma. Aby losowanie działało ok, w zdarzeniu OnCreate dla formatki wpisz kod Randomize; jak widać banał.
var
I : integer;
begin
for I := 0 to StringGrid1.RowCount - 1 do
begin
StringGrid1.Cells[0, I] := IntToStr(Random(10) + 1);
StringGrid1.Cells[1, I] := IntToStr(Random(10) + 1);
StringGrid1.Cells[2, I] := FloatToStr(StrToFloat(StringGrid1.Cells[0, I]) +
StrToFloat(StringGrid1.Cells[1, I]));
end;
end;