Source position: ovcbase.pas line 142
type TGetEpochEvent = procedure(
Sender: TObject;
var Epoch: Integer
) of object;