Regular maintenance

Added:
> procedure RaiseWarning(WarningMessage:String; Warn: TWarningType);