diff --git a/components/tvplanit/source/vpimportpreview.lfm b/components/tvplanit/source/vpimportpreview.lfm
index 33aa8c4a0..633585561 100644
--- a/components/tvplanit/source/vpimportpreview.lfm
+++ b/components/tvplanit/source/vpimportpreview.lfm
@@ -6,6 +6,7 @@ object VpImportPreviewForm: TVpImportPreviewForm
   Caption = 'VpImportPreviewForm'
   ClientHeight = 295
   ClientWidth = 634
+  LCLVersion = '2.3.0.0'
   object ButtonPanel: TPanel
     Left = 6
     Height = 25
diff --git a/components/tvplanit/source/vpimportpreview.pas b/components/tvplanit/source/vpimportpreview.pas
index db63c0e50..f76c7480d 100644
--- a/components/tvplanit/source/vpimportpreview.pas
+++ b/components/tvplanit/source/vpimportpreview.pas
@@ -130,29 +130,30 @@ begin
   with FGrid do
   begin
     Align := alClient;
-    AutoFillColumns := true;
+    Parent := self;
     Columns.Clear;
     with Columns.Add do
     begin
       Alignment := taCenter;
       ButtonStyle := cbsCheckboxColumn;
-      SizePriority := 0;
       Title.Caption := '';
-      Width := 10; //33;
+      SizePriority := 0;
+      Width := 33;
     end;
     with Columns.Add do
     begin
       ReadOnly := true;
-      SizePriority := 2;
+      SizePriority := 1;
       Title.Caption := '';
     end;
     with Columns.Add do
     begin
       ButtonStyle := cbsPickList;
-      SizePriority := 0;
       Title.Caption := '';
+      SizePriority := 0;
       Width := 160;
     end;
+    AutoFillColumns := true;
     ExtendedSelect := false;
     FixedCols := 0;
     Options := [goEditing, goRowSelect, goThumbTracking,
@@ -162,7 +163,7 @@ begin
     OnGetCheckboxState := @GridGetCheckboxState;
     OnPrepareCanvas := @GridPrepareCanvas;
     OnSetCheckboxState := @GridSetCheckboxState;
-    Parent := self;
+    //Parent := self;
   end;
 
   FItems := TFPList.Create;