Source position: ovcedtim.pas line 51
type TOvcGetTimeEvent = procedure(
Sender: TObject;
var Value: string
) of object;