DelPhi编程中怎样自定义一个函数

Answer 1

TComponet中的FOwner是用于在组件创建时指定“属主”用的，属主的作用是在于当属主Free的时候自动Free掉其下的所有组件。例：
var
lbl: TLabel;//此处TLabel继承自TComponent
begin
lbl ;= TLabel.Create(Form1);
...
lbl.Free;//通常我们会加上这句，但这里加上就错了
//Delphi会在Form1销毁的时候自动将lbl销
//毁掉
end;
这里TLabel就相当于TComponent，而Form1是TForm类的对象，TForm也是继承自TComponent，既然是这样实现，那在类的定义里楼主所说的情况应该不难理解了吧~~

ICompare = interface //声明一个接口ICompare
['{DDFE0840-E8FB-11D2-9085-0040F6741DE2}'] //全局唯一的ID，用于识别不同的接口

function CompareWith(ACompare: ICompare; ASortBy: Integer): Integer; //此接口所拥有的“动作”,接口本身不实现，由实现接口的类实现此“动作”

Answer 2

function abc: Integer;
begin
result := 0;
end;