procedure TForm1.FormPaint(Sender: TObject);
begin
canvas.Ellipse(100,100,400,200);
canvas.MoveTo(100,150);
canvas.LineTo(250,600);
canvas.LineTo(400,150);
end;
begin
canvas.Ellipse(100,100,400,200);
canvas.MoveTo(100,150);
canvas.LineTo(250,600);
canvas.LineTo(400,150);
end;
支持ing