diff --git a/components/tvplanit/source/vpdata.pas b/components/tvplanit/source/vpdata.pas
index 70664076a..62422987e 100644
--- a/components/tvplanit/source/vpdata.pas
+++ b/components/tvplanit/source/vpdata.pas
@@ -106,7 +106,7 @@ type
     procedure RemoveResourceGroup(AGroup: TVpResourceGroup);
     procedure Sort;
     property Count: Integer read GetCount;
-    property Items[Index: Integer]: TVpResource read GetItem;
+    property Items[Index: Integer]: TVpResource read GetItem; default;
     property Owner: TObject read FOwner;
     property ResourceGroupCount: Integer read GetResourceGroupCount;
     property ResourceGroups[Index: Integer]: TVpResourceGroup read GetResourceGroup;
@@ -251,6 +251,7 @@ type
     procedure Sort;
     property Owner: TVpResource read FOwner;
     property EventCount: Integer read GetCount;
+    property Items[AIndex: Integer]: TVpEvent read GetEvent; default;
   end;
 
   { TVpEvent }
@@ -399,6 +400,7 @@ type
     procedure Sort;
     function GetTask(Index: Integer): TVpTask;
     property Owner: TVpResource read FOwner;
+    property Items[AIndex: Integer]: TVpTask read GetTask; default;
   end;
 
   TVpTask = class
@@ -508,11 +510,10 @@ type
     procedure ExportVCardFile(const AFileName: String; const AContacts: TVpContactArr);
     procedure Sort;
 
-    property ContactsList: TList
-      read FContactsList;
-    property ContactSort: TVpContactSort
-      read FContactSort write SetContactSort default csLastFirst;
+    property ContactsList: TList read FContactsList;
+    property ContactSort: TVpContactSort read FContactSort write SetContactSort default csLastFirst;
     property Owner: TVpResource read FOwner;
+    property Items[AIndex: Integer]: TVpContact read GetContact; default;
   end;
 
   TVpContact = class
diff --git a/components/tvplanit/source/vpdayviewpainter.pas b/components/tvplanit/source/vpdayviewpainter.pas
index ca71f371f..fd5e738c0 100644
--- a/components/tvplanit/source/vpdayviewpainter.pas
+++ b/components/tvplanit/source/vpdayviewpainter.pas
@@ -1077,7 +1077,6 @@ var
 
       if IncDrawPos then
         inc(DrawPos, w + FScaledIconMargin);
-
     end;
   end;