diff --git a/components/tvplanit/source/vpimportpreview_icalevent.pas b/components/tvplanit/source/vpimportpreview_icalevent.pas
index cfbb46666..b376f9b9a 100644
--- a/components/tvplanit/source/vpimportpreview_icalevent.pas
+++ b/components/tvplanit/source/vpimportpreview_icalevent.pas
@@ -250,7 +250,7 @@ begin
     begin
       SizePriority := 0;
       Width := 160;
-      Title.Caption := 'Category';
+      Title.Caption := 'Category to be applied';
       ButtonStyle := cbsPickList;
       L := TStringList.Create;
       try
@@ -267,7 +267,10 @@ begin
       event := TVpICalEvent(FItems[i]);
       cat := FDatastore.FindBestEventCategory(event.Categories);
       if cat = '' then cat := FDefaultCategory;
-      event.PickedCategory := Grid.Columns[2].PickList.IndexOf(cat)
+      if cat <> '' then 
+        event.PickedCategory := Grid.Columns[2].PickList.IndexOf(cat)
+      else
+        event.PickedCategory := 0;
     end;
   end;
 end;