ttp://www.wakhok.ac.jp/~tetsuo/delphi/chap07/pb0703.html
↑このページの【応用課題 7-3-B】をやろうと頑張ってるんですが、
どうしても成功しません。　どこが間違っているのかお分かりに
なる方がいらっしゃいましたらご教授お願い致します。m(__;)m

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer; //for文のカウント用
x:integer; //数式上のx
y:integer; //数式上のy
temp:integer; //xの値を一時保管するための変数。
begin
x := 1; //初期値
y := 0; //初期値

for i := 1 to 1000 do　//繰り返しここから。
begin

//描画時にx、yの値を6倍し、中心のズレを修正し、赤色で描画。
Image1.Canvas.Pixels[6*x+Round(Image1.width/2)
,6*y+Round(Image1.Height/2)] := $000000FF;

//次のx,yを求める。
temp := x; //xの値を一時的に保管。
x := Round(y-0.97*x+5/(1+x*x)-5);
y := Round(-0.995*temp); //tempにはxの値が入っている。

end; //for文ここまで。
end;

//このコードで実行すると、ループの9回目に初期値の(1,0)に戻ってしまいます。