行业协会理事人数比例:麻烦哪位大虾帮我看看这段代码，毕业答辩要用啊！！！

希望能详细一点，

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Timer2: TTimer;
procedure windowsposchange(var Msg:TWMWINDOWPOSCHANGING);
message WM_WINDOWPOSCHANGING;
procedure Timer2Timer(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormResize(Sender: TObject);
private
{ Private declarations }
Hour, Minute, Second: Word; {当前时间}
OldMinute, OldSecond: Word; {旧时间}
XCenter, YCenter, Radius: Integer; {当前窗体大小}
public
{ Public declarations }
procedure DrawHand (XCenter, YCenter, Radius,
BackRadius: Integer; Angle: Real);
procedure DrawSecond;
end;
var
Form1: TForm1;
oleft:Integer;
otop:Integer;
owidth:Integer;
oheight:Integer;
implementation
{$R *.dfm}
procedure TForm1.Timer2Timer(Sender: TObject);
begin
self.Caption := '桌面时钟 '+datetimetostr(now);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
hesc:word;
begin
oldminute := minute;
oldsecond := second;
SysUtils.DecodeTime(time,hour,minute,second,hesc);
if oldminute = minute then
drawsecond
else
refresh;
end;
procedure tform1.DrawSecond;
var
Angle,OldAngle :real;
begin
oldangle := 2*pi*(oldsecond+45)/60;
drawhand(XCenter, YCenter, Radius,
Radius * 30 div 100, OldAngle);
angle := 2*pi*(second+45)/60;
drawhand(XCenter, YCenter, Radius,
Radius * 30 div 100, angle);
end;
procedure tform1.DrawHand(XCenter, YCenter, Radius,
BackRadius: Integer; Angle: Real);
begin
form1.Canvas.MoveTo(XCenter - Round (BackRadius * Cos (Angle)),
YCenter - Round (BackRadius * Sin (Angle)));
form1.Canvas.LineTo (
XCenter + Round (Radius * Cos (Angle)),
YCenter + Round (Radius * Sin (Angle)));
end;
procedure TForm1.FormPaint(Sender: TObject);
var
Angle: Real;
I, X, Y, Size: Integer;
begin