[zibert]

я бы сделал так..

Код:

Gran[1]:=WavInfo.MinAmplitude;
Form1.Memo3.Lines.Add('Gran ' +FloatToStr(Gran[1]));
For i:=2 to m do
begin 
 Gran[i]:=Gran[i-1]+delX;
 Form1.Memo3.Lines.Add('Gran ' +FloatToStr(Gran[i]));
end;