1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.Button5Click(Sender: TObject);
var i,hilf2,startwert : integer;
    wert : real;
begin
stringgrid1.Cells[0,0] := 'x: ';
stringgrid1.Cells[0,1] := 'y: ';
hilf2 := startwert;
for i := 1 to 10 do begin
wert := hilf2*hilf2*hilf2*a + hilf2*hilf2*b + hilf2*b + d;        // a,b,c,d sind die parameter... schon eingelesen ;)
stringgrid1.Cells[0,i] := floattostr(wert);
stringgrid1.Cells[1,i] := inttostr(hilf2);
hilf2 := hilf2 + 1;
end;
end;