Problem mit Werten in der Tabelle

[KosMottchen]

huhu,

hm hab nen programm, wo ich die Dehung in m und die Energie in nm in eine Tablle schreiben lasse...

aber ich habe in der Zelle 0m den wert drin, der eigendlich bei der zelle mit 1m stehen müsste...

aknn mir da wer fix nen tipp geben, wie ich das ändern kann, sodass das passt?

hab die files mal hochgeladen... einfach ma die exe starten und dann seht ihr das denk ich mal

danke schonmal für jede hilfe

hier der link zur dpr und exe und co

klick

hier der quelltext:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin

with Stringgrid1 Do begin

Cells[0,0]:='Dehnung in m';
Cells[1,0]:='Energie in Nm';
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
D,dehnung,Epot,intervall:real;
i,code:integer;
begin
VAL (form1.Edit1.Text,D,code);
VAL (form1.Edit2.Text,dehnung,code);
VAL (form1.Edit3.Text,intervall,code);

with stringgrid1 do begin

rowcount:=round(dehnung/intervall);

dehnung:=0;

for i:=1 to rowcount -1 do begin

cells[0,i]:=floattostr(dehnung);
dehnung:=dehnung+intervall;

Epot:=(1/2*D)*sqr(dehnung);
cells[1,i]:=floattostr(Epot);



end;  
end;
end;