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.