procedure SetDateParam

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