чёто подобное через классы так делал:
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;