Index: MainFrm.pas
===================================================================
--- MainFrm.pas	(revision 13355)
+++ MainFrm.pas	(working copy)
@@ -32,7 +32,7 @@
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ComCtrls, JvValidators, JvErrorIndicator, ImgList, JvComponent;
+  JvValidators, JvErrorIndicator, JvComponentBase, Vcl.StdCtrls, Vcl.ComCtrls;
 
 type
   TfrmMain = class(TForm)
@@ -48,7 +48,7 @@
     btnCheck: TButton;
     Label5: TLabel;
     btnProviderCheck: TButton;
-    reResults: TRichEdit;
+    reResults: TMemo;
     btnValSum: TButton;
     JvValidators1: TJvValidators;
     JvErrorIndicator1: TJvErrorIndicator;
@@ -67,10 +67,14 @@
     procedure JvValidators1ValidateFailed(Sender: TObject;
       BaseValidator: TJvBaseValidator; var Continue: Boolean);
     procedure JvValidationSummary1Change(Sender: TObject);
+    procedure reResultsDblClick(Sender: TObject);
   private
     { Private declarations }
+    HelpText: string;
+
     procedure ProviderErrorValidateFailed(Sender: TObject;
       BaseValidator: TJvBaseValidator; var Continue: Boolean);
+    procedure MemoWrapMode(const do_wrap: boolean);
   public
     { Public declarations }
   end;
@@ -85,15 +89,10 @@
 
 {$R *.DFM}
 
-procedure TfrmMain.FormCreate(Sender: TObject);
-begin
-  reResults.WordWrap := true;
-end;
-
 procedure TfrmMain.btnCheckClick(Sender: TObject);
 begin
   reResults.Lines.Clear;
-  reResults.WordWrap := false;
+  MemoWrapMode( false );
   JvErrorIndicator1.ClearErrors;
   JvValidators1.ValidationSummary := nil;
   JvValidators1.ErrorIndicator := nil;
@@ -104,7 +103,7 @@
 procedure TfrmMain.btnProviderCheckClick(Sender: TObject);
 begin
   reResults.Lines.Clear;
-  reResults.WordWrap := false;
+  MemoWrapMode( false );
   // calling BeginUpdate/EndUpdate delays the error reporting until all controls have been validated
   JvErrorIndicator1.BeginUpdate;
   try
@@ -121,7 +120,7 @@
 procedure TfrmMain.btnValSumClick(Sender: TObject);
 begin
   reResults.Lines.Clear;
-  reResults.WordWrap := false;
+  MemoWrapMode( false );
   JvErrorIndicator1.ClearErrors;
   JvValidators1.OnValidateFailed := nil;
   JvValidators1.ErrorIndicator := nil;
@@ -132,6 +131,18 @@
   JvValidators1.Validate;
 end;
 
+procedure TfrmMain.reResultsDblClick(Sender: TObject);
+begin
+  reResults.Lines.Text := HelpText;
+  MemoWrapMode(true);
+end;
+
+procedure TfrmMain.FormCreate(Sender: TObject);
+begin
+  HelpText := reResults.Lines.Text;
+  MemoWrapMode(true);
+end;
+
 procedure TfrmMain.reResultsEnter(Sender: TObject);
 begin
   SelectNext(reResults,true,true);
@@ -151,6 +162,14 @@
   reResults.Lines.Add(Format('FAILED: %s',[BaseValidator.ErrorMessage]));
 end;
 
+procedure TfrmMain.MemoWrapMode(const do_wrap: boolean);
+begin
+  reResults.WordWrap := do_wrap;
+  if do_wrap
+     then reResults.ScrollBars := ssVertical
+     else reResults.ScrollBars := ssBoth
+end;
+
 procedure TfrmMain.ProviderErrorValidateFailed(Sender: TObject;
   BaseValidator: TJvBaseValidator; var Continue: Boolean);
 begin

Index: MainFrm.dfm
===================================================================
--- MainFrm.dfm	(revision 13355)
+++ MainFrm.dfm	(working copy)
@@ -7,22 +7,14 @@
   Color = clBtnFace
   Constraints.MinHeight = 270
   Constraints.MinWidth = 560
-  DefaultMonitor = dmDesktop
-  Font.Charset = DEFAULT_CHARSET
-  Font.Color = clWindowText
-  Font.Height = -11
-  Font.Name = 'MS Shell Dlg 2'
-  Font.Style = []
   OldCreateOrder = False
   Position = poScreenCenter
-  Scaled = False
   OnCreate = FormCreate
-  PixelsPerInch = 96
   TextHeight = 13
   object Label1: TLabel
     Left = 16
     Top = 16
-    Width = 155
+    autosize = true
     Height = 13
     Caption = 'This edit must have a(ny) value:'
     FocusControl = edRequired
@@ -30,7 +22,7 @@
   object Label2: TLabel
     Left = 16
     Top = 64
-    Width = 215
+    autosize = true
     Height = 13
     Caption = 'This edit must have more than 9  characters:'
     FocusControl = edRequired10Chars
@@ -38,7 +30,7 @@
   object Label3: TLabel
     Left = 16
     Top = 112
-    Width = 213
+    autosize = true
     Height = 13
     Caption = 'This edit must match the reg. expr."A.B.C.":'
     FocusControl = edRegExpr
@@ -46,7 +38,7 @@
   object Label4: TLabel
     Left = 16
     Top = 160
-    Width = 188
+    autosize = true
     Height = 13
     Caption = 'The value must be between 0 and 100:'
     FocusControl = edRange0to100
@@ -54,9 +46,10 @@
   object Label5: TLabel
     Left = 272
     Top = 16
-    Width = 34
+    autosize = true
     Height = 13
-    Caption = 'Result:'
+    Caption = 'Result  (Double-click to show help):'
+    OnDblClick = reResultsDblClick
   end
   object edRequired: TEdit
     Left = 16
@@ -119,15 +112,13 @@
     TabOrder = 5
     OnClick = btnProviderCheckClick
   end
-  object reResults: TRichEdit
+  object reResults: TMemo
     Left = 272
     Top = 32
     Width = 306
     Height = 167
-    Cursor = crArrow
     TabStop = False
     Anchors = [akLeft, akTop, akRight, akBottom]
-    Ctl3D = True
     Lines.Strings = (
       
         'This is a demo for the JvValidators component as well as the JvE' +
@@ -168,12 +159,13 @@
       ''
       '')
     ParentColor = True
-    ParentCtl3D = False
+    ParentCtl3D = True
     ReadOnly = True
     ScrollBars = ssBoth
     TabOrder = 8
     WordWrap = False
     OnEnter = reResultsEnter
+	OnDblClick = reResultsDblClick
   end
   object btnValSum: TButton
     Left = 174
@@ -197,6 +189,7 @@
       PropertyToValidate = 'Text'
       Enabled = True
       ErrorMessage = 'Value in edRequired cannot be empty'
+	  AllowBlank = False
     end
     object JvCustomValidator1: TJvCustomValidator
       Valid = True