رسم دائرة أو شكل بيضوي

Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Canvas.Ellipse(10,10,100,100);
end

;