匿名方法[1]

Tfun = REFERENCE to function(c, y: integer): integer;function Ta(x, y: integer; Tb: Tfun): integer;begin  result := Tb(x, y);end;procedure TForm1.Button1Click(Sender: TObject);begin  ShowMessage(inttostr(Ta(7, 8, function(c, y: integer): integer//引处不能有分号;                                      begin                                         result :=x + y;                                      end)));end;