delphi的程序执行顺序

Question

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
Type
TMyClass = class
procedure MyProc(var x: Integer);
function MyFun (var x: Integer): Integer;
end;

function TMyClass.MyFun(var x:integer):integer;
begin
x:=x+2;
end;
procedure TMyClass.MyProc(var x:integer);
begin
x:=x+3;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
mycls:TMyClass;
begin
mycls:=TMyClass.Create;
i:=6;
mycls.MyProc(i);
showmessage(inttostr(i));
end;

end.
请大家帮我看下上面这个程序执行顺序
---------------------------------------------------
谢谢大家了
还有就是下面这些为什么这样写 是什么意思？
谢谢
TMyClass.MyProc
mycls.MyProc(i); 这个i的值传到x 为什么输出i后的值是9？
mycls:TMyClass; 这个为什么还要创建一个？

还有就是这句：
Type
TMyClass = class
procedure MyProc(var x: Integer);
function MyFun (var x: Integer): Integer;
end;
为什么既然已经声明了过程跟函数后面括号里面的为什么还要写？
实现的时候不都是已经有了吗？

Answer 1

这程序点击按钮后，只有执行了一个函数：MyProc(i);
MyProc(i)的功能是对参数值递增3，并且是过程形式；另一个是递增2，并且是函数形式；
写成TMyClass类的形式作者的本意可能是为了突出 类 的应用，多个函数集中到一个类显得有条理些；当然也可以写成单个函数，可以不要TMyClass类。

Type
TMyClass = class
procedure MyProc(var x: Integer);
function MyFun (var x: Integer): Integer;
end;
括号里面的是形式参数。