[mamcx]

Tambien se puede usar metodos anonimos:

http://docs.embarcadero.com/products...thods_xml.html

Código Delphi [-]
function MakeAdder(y: Integer): TFuncOfInt;
begin
Result := { start anonymous method } function(x: Integer)
  begin
    Result := x + y;
    end; { end anonymous method }
end;