使用方法類型

{定義方法類型}
type
  TFunType  = function(x: Integer): Integer; {函數類型}
  TProcType = procedure(name: string);       {過程類型}

{定義一個符合 TFunType 類型的函數}
function MyFun(x: Integer): Integer;
begin
  Result := x * 2;
end;

{定義一個符合 TProcType 類型的過程}
procedure MyProc(name: string);
begin
  ShowMessage('我是' + name);
end;


{使用}
procedure TForm1.Button1Click(Sender: TObject);
var
  Fun : TFunType;  {定義一個 TFunType  類型的變量}
  Proc: TProcType; {定義一個 TProcType 類型的變量}
begin
  Fun  := MyFun;   {讓變量 Fun 指向和它具有同樣參數和返回值的自定義函數 MyFun}
  Proc := MyProc;  {讓變量 Proc 指向和它具有同樣參數的自定義過程 MyProc}

  {現在這兩個方法的變量 Fun、Proc 可以使用了}
  ShowMessage(IntToStr(Fun(4))); {8}
  Proc('萬一');                  {我是萬一}
end;