谁来解读delphi程序框架代码？

unit main;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, ExtCtrls, ImgList, Buttons, StdCtrls;type
  TFormMain = class(TForm)
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N2: TMenuItem;
    N13: TMenuItem;
    N18: TMenuItem;
    N14: TMenuItem;
    N3: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N4: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N32: TMenuItem;
    N33: TMenuItem;
    N7: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    StatusBar1: TStatusBar;
    Timer1: TTimer;
    ImageList1: TImageList;
    SpeedButton1: TSpeedButton;
    BitBtn1: TBitBtn;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ToolButton4: TToolButton;
    procedure N34Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  FormMain: TFormMain;implementationuses tzd, yptzd_QR;{$R *.dfm}procedure TFormMain.N34Click(Sender: TObject);
begin
    application.HelpFile:='help/rd.hlp';
    application.HelpCommand(HELP_FINDER, 0);
end;procedure TFormMain.N13Click(Sender: TObject);
begin
  if application.FindComponent('formtzd')=nil then
     application.CreateForm(tFormTzd,FormTzd);
     FormTzd.Show;
end;procedure TFormMain.Timer1Timer(Sender: TObject);
begin
  with StatusBar1 do
    begin
      Panels[1].Text:=DateToStr(Date);//显示日期
      Panels[2].Text:=TimeToStr(Time);//显示时间
    end;
end;procedure TFormMain.ToolButton14Click(Sender: TObject);
begin
        FormMain.Close;
end;procedure TFormMain.N12Click(Sender: TObject);
begin
        FormMain.Close;
end;procedure TFormMain.SpeedButton1Click(Sender: TObject);
begin
        QR_yptzd.QuickRep1.Preview;
        QR_yptzd.QuickRep1.Destroy;
end;procedure TFormMain.BitBtn1Click(Sender: TObject);
begin
        FormMain.Close;
end;end.不理解。找了书上没有做介绍。另外有没有函数库查询呀！
想写东东不知道函数也无从下手呀！