تطيبق رسم دالة بدلفي من احد الكتب

[Delphi_2007]

السلام عليكم

عملت تطبيق رسم دالة بواسطة برنامج الموجود باحد الكتب بحيث قمت بتتبع كل الخطوات ولكن لم يفلح معي
الكود هو:

كود :

procedure TForm1.Button1Click(Sender: TObject); Var x0,y0,a,b:Integer; x,y:real; dx:real; begin x0:=BoiteDessin.ClientWidth div 2; y0:=BoiteDessin.ClientHeight div 2; BoiteDessin.Canvas.MoveTo (0,y0); BoiteDessin.Canvas.LineTo (x0*2,y0); BoiteDessin.Canvas.MoveTo(x0,0); BoiteDessin.Canvas.LineTo(x0,y0*2); x:= -10; dx:=0.05; y:=x*sin(x); a:=round(x*12+x0); b:=round(-y*15+y0); BoiteDessin.Canvas.MoveTo(a,b); Repeat BoiteDessin.Canvas.LineTo(a,b); x:=x+dx; y:=x*sin(x); a:=Round(x*15+x0); b:=Round(-y*15+y0); Unit1 x>10; end; end.

صورة التطبيق

[محمد عبد العزيز]

السلام عليكم
لديك خطأ في كتاب كود دلفي، الكلمة Until وليس Unit1

كود :

Until x>10;

[Delphi_2007]

وعليكم السلام، شكرا اخي على التوضيح جزيت خيرا.