diff --git a/components/tvplanit/examples/fulldemo/demomain.lfm b/components/tvplanit/examples/fulldemo/demomain.lfm
index 79b8e57ba..34fd3acfa 100644
--- a/components/tvplanit/examples/fulldemo/demomain.lfm
+++ b/components/tvplanit/examples/fulldemo/demomain.lfm
@@ -560,7 +560,6 @@ object MainForm: TMainForm
     AllowRearrange = True
     BackgroundColor = clActiveCaption
     BackgroundMethod = bmNormal
-    BorderStyle = bsSingle
     ButtonHeight = 20
     DrawingStyle = dsCoolTab
     FolderCollection = <    
diff --git a/components/tvplanit/source/vpwavdlg.lfm b/components/tvplanit/source/vpwavdlg.lfm
index 44db520ce..dca5de7c6 100644
--- a/components/tvplanit/source/vpwavdlg.lfm
+++ b/components/tvplanit/source/vpwavdlg.lfm
@@ -139,9 +139,22 @@ object FrmSoundDialog: TFrmSoundDialog
           Width = 170
           BevelOuter = bvNone
           BorderStyle = bsSingle
-          Caption = 'Nothing to select from'
+          ClientHeight = 86
+          ClientWidth = 166
           TabOrder = 3
-          Wordwrap = True
+          object Label3: TLabel
+            Left = 0
+            Height = 86
+            Top = 0
+            Width = 166
+            Align = alClient
+            Alignment = taCenter
+            AutoSize = False
+            Caption = 'Nothing to select from'
+            Layout = tlCenter
+            ParentColor = False
+            WordWrap = True
+          end
         end
       end
       object Splitter1: TSplitter
@@ -175,8 +188,22 @@ object FrmSoundDialog: TFrmSoundDialog
         Width = 170
         BevelOuter = bvNone
         BorderStyle = bsSingle
-        Caption = 'Nothing to select from'
+        ClientHeight = 86
+        ClientWidth = 166
         TabOrder = 3
+        object Label4: TLabel
+          Left = 0
+          Height = 86
+          Top = 0
+          Width = 166
+          Align = alClient
+          Alignment = taCenter
+          AutoSize = False
+          Caption = 'Nothing to select from'
+          Layout = tlCenter
+          ParentColor = False
+          WordWrap = True
+        end
       end
     end
   end
diff --git a/components/tvplanit/source/vpwavdlg.pas b/components/tvplanit/source/vpwavdlg.pas
index 842328fca..c283fecdd 100644
--- a/components/tvplanit/source/vpwavdlg.pas
+++ b/components/tvplanit/source/vpwavdlg.pas
@@ -48,12 +48,14 @@ type
   { TFrmSoundDialog }
 
   TFrmSoundDialog = class(TForm)
+    Label3: TLabel;
     PageControl1: TPageControl;
     Panel1: TPanel;
     Panel2: TPanel;
     Panel3: TPanel;
     Panel4: TPanel;
     RightPanel: TPanel;
+    Label4: TLabel;
     ShellListView: TShellListView;
     ShellTreeView: TShellTreeView;
     Splitter1: TSplitter;
@@ -160,8 +162,8 @@ begin
   CBDefault.Caption := RSDefaultSound;
   OkBtn.Caption := RSOkBtn;
   CancelBtn.Caption := RSCancelBtn;
-  Panel3.Caption := RSNothingToSelectFrom;
-  Panel4.Caption := RSNothingToSelectFrom;
+  Label3.Caption := RSNothingToSelectFrom;
+  Label4.Caption := RSNothingToSelectFrom;
   if DingPath = '' then begin
     CBDefault.Checked := true;
     ShellTreeView.Path := MediaFolder;