怎样在OpenGL中实现循环多次绘图

procedure TForm1.Draw;
const PI=3.14159265358979323846;
var h,w,x,y,z,angle1, d,angle:real;
    i,devide:integer;
begin
devide:=100;
 angle:=PI/2.1;
 d:=1;
 h:=3.4643;
 w:=4; for i:=0 to devide do
begin
angle1:=PI*i/devide;
glLoadidentity();
glTranslatef(0.0,h,0.0);
glTranslatef((w/2-d/2)*cos(angle1),(w/2-d)*sin(angle1),-h/tan(angle));
glutsolidSPhere(d,30,30);    {上圆弧}
end;
end;怎样多次调用这个DRAW函数循环在不同位置进行绘图