diff --git a/ide/frames/componentpalette_options.pas b/ide/frames/componentpalette_options.pas
index 7e09d7c6e4..c69dc7d473 100644
--- a/ide/frames/componentpalette_options.pas
+++ b/ide/frames/componentpalette_options.pas
@@ -236,7 +236,6 @@ var
   SrcView: TListView;
   DestPt: TPoint;
   Ind, DestInd: integer;
-  szTemp: String;
   Item: TListItem;
 begin
   lb := Sender as TListBox;
@@ -268,6 +267,7 @@ begin
         Item := SrcView.Items[Ind];
         SrcView.Items.Delete(Ind);     // delete the item that is being dragged
         // ToDo: insert item into this page in a temporary data
+        if Item=nil then ;
       end;
       inc(Ind);
     end;