unit Unit1;

interface

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

type
TMyProc=procedure(i:Integer) of object;

TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure DoMyProc1(i:Integer);
procedure DoMyProc2(i:Integer);
procedure SayHello(AProc:TMyProc;i:Integer);
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.DoMyProc2(i: Integer);
begin
ShowMessage(IntToStr(i+100));
end;

procedure TForm1.DoMyProc1(i: Integer);
begin
ShowMessage(IntToStr(i));
end;

procedure TForm1.SayHello(AProc: TMyProc;i:Integer);
begin
AProc(i);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SayHello(DoMyProc1,5);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
SayHello(DoMyProc2,5);
end;

end.