[Dmitry_DM]

Здравствуйте! Пришел прогресс к моей работе по защите wav файла с помощью математической модели. Так вот: многое, что нужно сделать, проделано мною в EXEL документе. Это конечно хорошо, но! Нужно это сделать по-человечески в Delphi. Так вот: не буду долго рассказывать что и зачем нужно. Но для начала первый вопрос:
Нужно найти границы интервалов. Для этого нужно к мин амплитуде прибавить ранее найденный дельта X. Сделал в delphi это по калеченому. Как это сделать нормально.. думаю вы поймете о чем я.
Внизу EXEL. Пока интересующий столбик - это A34:F47.
Вот по-калеченому:

Код:

   For i:=1 to m do
   begin
    Gran[1]:=WavInfo.MinAmplitude+delX;
    Gran[2]:=Gran[1]+delX;
    Gran[3]:=Gran[2]+delX;
    Gran[4]:=Gran[3]+delX;
    Gran[5]:=Gran[4]+delX;
    Gran[6]:=Gran[5]+delX;
    Gran[7]:=Gran[6]+delX;
    Gran[8]:=Gran[7]+delX;
    Gran[9]:=Gran[8]+delX;
    Gran[10]:=Gran[9]+delX;
    Gran[11]:=Gran[10]+delX;
    Form1.Memo3.Lines.Add('Gran ' +FloatToStr(Gran[i]));
   end;

Но нигде не известно, что интервалов 11. Их может быть сколько угодно..
Как сделать правильно, где-то в 2 строки.. Помогите.. Позже будут еще вопросы.. Кто отзовется помогать - тому нечеловеческое СПАСИБО!