unit Differential;

declaration
    function F(X:Real):Real;

interface
    GetDiff;
implementation

const
    DeltaX : Real = 0.0001;

function GetDiff(X:Real):Real;
begin
    Result := (F(X+DeltaX)-F(X-DeltaX)) / (2*DeltaX);
end;

end.