2
{ Old file: tbf0361.pp }
15
Procedure AddItem(ACaption: String; AExec: ExecProc; var Item: MenuItem);
17
Item.Caption:=ACaption;
21
Procedure ExecFirstItem;
23
Writeln('Result of "Item 1"');
26
var M1,M2,M3: MenuItem;
30
AddItem('Item 1',Nil,M1);
31
Ep:=ExecFirstItem; // should give error in fpc mode
32
AddItem('Item 2',Ep,M2);
33
AddItem('Item 3',@ExecFirstItem,M3);