Übergabeparameter in Funktion

[martin_]

Hallo,
ich habe folgenden Code

Delphi-Quellcode:

function A (Value:Integer) : Integer;
begin
....
 i := C;
....
end

function B (Value:Integer) : Integer;
begin
....
 i := D;
....
end

Die beiden Funktionen unterscheiden sich nur durch die Zuweisung von C bzw. D an i. Wobei C und D wieder beliebige Funktionen sind.

Delphi-Quellcode:

function A (Value:Integer) : Integer;
begin
 result := machinhalt (Value; myfunction.C);
end

bzw.

function B (Value:Integer) : Integer;
begin
 result := machinhalt (Value; myfunction.D);
end

function machinhalt (Value : Integer; aFunction : TObject)
begin
...
 i := aFunction();
...
end

Nach Compilieren erscheint die Fehlermeldung das Operator auf Operandentyp nicht anwendbar ist (in machinhalt bei der Zuweisung). Wie kann ich mein Problem beheben?