[Pyro]

чёто подобное через классы так делал:

PHP код:

type
  TProc = class
  public
    procedure call(sender: TObject); virtual; abstract;
  end;

  NewX = class(TProc)
  private
    a,b,c: integer;
  public
    constructor Create(_a,_b,_c: integer);
    procedure call(sender: TObject); override;
  end;