参考了时钟的代码。
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k:integer;
x,y:single;
t:ttext;
begin
j:=Edit1.Text.ToInteger();
k:=Edit2.Text.ToInteger();
x:=(Circle1.Position.X + Circle1.Width/2);
y:=(Circle1.Position.Y + Circle1.Height/2);
for I := 1 to j do
begin
t:=TText.Create(Self);
t.Parent:=Form1;
t.Text:=i.ToString().PadLeft(2,'0');
t.AutoSize:=True;
t.Position.X:=x+(k*Sin(i/j*2*Pi))-t.Width/2;
t.Position.Y:=y-(k*Cos(i/j*2*Pi))-t.Height/2;
end;
end;

我觉得很奇怪，为什么那种简单到古怪，而且单调乏味的东西总有人挖，这种技术分享却无人看

新人帮顶，hellow word阶段

该程序不能运行.

运行效果，修改了一下以下两个值，令生成角度从下开始
t.Position.X:=x+(k*Sin(i/j*2*Pi))-t.Width/2;
t.Position.Y:=y-(k*Cos(i/j*2*Pi))-t.Height/2;