структура и процедура

[spydark91]

как в структуру засунуть процедуру?
тоесть как тут
мой поток.suspend;
или
form1.close;

пробовал так

m=record
procedure i;
end;
//вырезано
{$R *.dfm}
procedure tform1.i;
begin
form1.visible:=true;
end;

[Баламут]

Вот примерчик. А книжки по Делфи уже не печатают? Нет, правда, давно не интересовался

unit Unit1;

interface

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

type
  T1 = record
    a: integer;
    b: procedure of Object;
  end;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
  t.b := Form1.test;
  t.b;
end;

procedure TForm1.test;
begin
  ShowMessage('Превед, двоечник!');
end;

end.