请问高手，我在一个没有窗体的unit中写个生成窗体的过程，其中事件调用本unit中其他过程，但编译不了，为何？谢谢，哪个unit作为主程序调用的

unit Unit_action;interface
  uses
  Windows, Messages, SysUtils, Classes,StdCtrls, Graphics, Controls, Forms, Dialogs,
  ExtCtrls,registry,activex,comobj,shlobj;  procedure exitabout(Sender: TObject);
  procedure paintline(sender :TObject);
  procedure Make_AboutBox(sender :Tcomponent);implementation
procedure exitabout(Sender: TObject);
 var
 currh:Thandle;
 begin
 currh:=GetForeGroundWindow();
 SendMessage(currh,WM_Close,0,0);
 end;
 procedure paintline(sender :TObject);
 var
 p:TPoint;
 begin
      TForm(sender).Canvas.Pen.Color :=clwhite;
      TForm(sender).Canvas.Pen.Width :=1;
      p.x :=2;
      p.y :=198;
      TForm(sender).Canvas.PenPos:= p;
      TForm(sender).Canvas.LineTo(TForm(sender).width-2,198);
      TForm(sender).Canvas.Pen.Color :=$808080;
      p.y :=199;
      TForm(sender).Canvas.PenPos:= p;
      TForm(sender).Canvas.LineTo(TForm(sender).width-2,199);
 end;
procedure Make_AboutBox( sender :Tcomponent);
var
      form_about:TForm;
      label_info:TLabel;
      button_ok:TButton;
      image_icon:TImage;   begin
      form_about:=Tform.Create(sender) ;
      label_info:=TLabel.Create(sender) ;
      button_ok:=TButton.Create(sender) ;
      image_icon:=TImage.Create(sender);
      label_info.Parent:=form_about;
      button_ok.Parent:=form_about;
      button_ok.OnClick :=exitabout;
      image_icon.Parent:=form_about;
      form_about.Caption :='关于';
      form_about.BorderStyle :=bsdialog;
      form_about.Width :=400;
      form_about.height:=300;
      form_about.Position :=podesktopcenter;
      form_about.Font.Name :='宋体';
      form_about.Font.Size :=10;
      form_about.OnPaint :=paintline;
      image_icon.Picture.Icon.Handle :=Application.icon.handle;
      label_info.WordWrap :=true;
      label_info.Caption :='hhh';
      label_info.Left :=147;
      label_info.Top :=16;
      label_info.Height :=174;
      label_info.Width:=240;
      image_icon.Left :=25;
      image_icon.Top :=16;
      button_ok.Left :=159;
      button_ok.Top :=223;
      button_ok.Caption :='确定';
      form_about.Showmodal;
end;end.