procedure SetTimeParam

procedure setTimeParam(key: string; value: TDateTime);