Программма работает не так как ожидал

[бедный_студент]

программма прилагается
суть проблемы: нужно посчитать популяцию вида по формуле в цикле и вывести график. в программе 4 набора параметров. н1 работает вроде как надо там числа целые.
а вот н2-4 выводят какие то странные графики. да и числа там дробные, чего быть не должно.
кто может - скажите как округлить число так чтобы не вылетало (через round прога вылетает при просчете почему то).
и еще одна непонятка: почему то в цикле значение считается за 10 циклов до конца - там видно график вверх идет только в самом конце - почему так - не понятно
в теории все 4 графика должны чуть чуть отличаться друг от друга вытянуты они должны быть по разному вверх и вправо

прошу помощи: округлить число Nt и Ns и записать в переменные...
а с графиком -... может после округления все нормально будет

[бедный_студент]

var
  Form1: TForm1;

  R:integer;
  a:real;
  b:real;
  N0:real;
  Nt:real;
  Ns:real;
  l:integer;
  t:integer;


implementation

{$R *.dfm}
//_____________________________________________наборы __________________________
procedure TForm1.Button2Click(Sender: TObject);
begin
    Edit1.Text:='2';
    Edit4.Text:='4';
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
    Edit1.Text:='2';
    Edit4.Text:='1';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
    Edit1.Text:='4';
    Edit4.Text:='3,5';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
    Edit1.Text:='4';
    Edit4.Text:='4,5';
end;

//_________________________________очистить переменные__________________________

procedure TForm1.Button9Click(Sender: TObject);
begin

series1.Clear;
Chart1.CleanupInstance;
Nt:=0;
t:=0;
Ns:=0;
end;

//_________________________________строить график_______________________________

procedure TForm1.Button1Click(Sender: TObject);
begin
R:= strtoint(edit1.Text);
N0:= strtoint(edit2.Text);
a:= strtoint(edit3.Text);
b:= strtofloat(edit4.Text);
l:= strtoint(edit5.Text);
Ns:=N0;
Nt:=N0;
series1.Clear;
Chart1.CleanupInstance;

// showmessage ('поехали!');   //a^b = exp(ln(a^b)) = exp(b*ln(a))

      while (t < l) do
      begin
      Nt:=Ns * R / exp(ln( 1+a*Nt)*b);
      //Ns:=(Ns*R);  Ns:=Ns-(Ns*(a/10));
      Ns:=Ns+Nt;
      series1.AddXY(t,Ns,'',clred);
      t:=t+1
      end;

Label9.caption:=floattostr(Ns);

Nt:=0;
t:=0;
Ns:=0;

end;
end.

вот код у кого делфи не стоит
и прога скомпилированная

[бедный_студент]

и еще никто не подскажет какой нить сайт где уроки есть видео\презентации\в документальном формате прога и как её делали с подробным описание каждого шага ? или назовите как оно хоть называется

[бедный_студент]

что неужели такая задачка сложная ? я уже большую часть сделал
подштукатурить осталось