菜鸟级问题

Question

不太明白delphi的运行先后过程,如下面程序都是事件响应.
如果我想在下面放个过程或函数,让程序开始就运行.该怎么做.unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Button4: TButton;
    ADOConnection1: TADOConnection;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2, Unit3, Unit4;{$R *.dfm}procedure TForm1.Button3Click(Sender: TObject);
begin
      form2.showmodal;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
      form3.showmodal;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
      form4.showmodal;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
      close;
end;end.

Answer 1

如果我想在下面放个过程或函数,让程序开始就运行.该怎么做.
－－－－－－－
双击主窗体，自动产生OnCreate事件的代码，你在里面写就可以了。

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Label1: TLabel;
    Button4: TButton;
    ADOConnection1: TADOConnection;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    Procedure A;
    function  B():boolean;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2, Unit3, Unit4;{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  A;
  if b then
    showmessage('ok');
end;Procedure TForm1.A;
begin
  caption := 'test';
end;function  TForm1.B():boolean;
begin
  result := true;
end;procedure TForm1.Button3Click(Sender: TObject);
begin
      form2.showmodal;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
      form3.showmodal;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
      form4.showmodal;
end;procedure TForm1.Button4Click(Sender: TObject);
begin
      close;
end;end.

Answer 3

FormCreate-->FormShow-->FormActivate