Delphi. Запись диапазона чисел в StridGrid с шагом

[Solerrain]

Здравствуйте. Имеется Edit1, в который вводится произвольный шаг. Как реализовать такой случай: вводим в Edit1 шаг, нажимаем на кнопку и в первую строку StridGrid'a выводится диапазон чисел. Диапазон должен варьироваться от 0 до значения, которое вводится произвольным образом в Edit2

[Serge_Bliznykov]

так без особого контроля на ошибки:

var i, n : integer;
  h, x, BoundEnd : double; 
begin
try
  h := StrToFloat( Edit1.Text);
  BoundEnd :=  StrToFloat( Edit2.Text);

  if BoundEnd<=0 then begin 
        ShowMessage('Правая граница должна быть больше нуля'); 
        Exit 
  end;

  n := 0;
  x := 0;
  while  x<= BoundEnd do begin
      Inc(n);
      x := x + h
  end;

  StringGrid1.FixedRows :=0;
  StringGrid1.FixedCols :=0;
  StringGrid1.ColCount := n;
 
  x := 0;
  for i:=1 to n do begin
     StringGrid1.Cells[i, 0] := FloatToStr( x );
     x := x + h
  end;

except
  ShowMessage('Ошибки в исходных данных')
end;