diff --git a/ide/main.pp b/ide/main.pp
index a8bda00eb4..71839fad94 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -4978,13 +4978,13 @@ var
   Rect : TRect;
   AHint : String;
   cPosition : TPoint;
-  TextPosition : TPoint;
-  SE : TSourceEditor;
+//  TextPosition : TPoint;
+//  SE : TSourceEditor;
   WIndow : TWInControl;
-  Caret : TPoint;
+//  Caret : TPoint;
   Control : TCOntrol;
-  Control2 : TControl;
-  tempPosition : TPoint;
+//  Control2 : TControl;
+//  tempPosition : TPoint;
 begin
   HintTimer1.Enabled := False;
 
@@ -5064,6 +5064,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.164  2001/12/05 18:19:10  lazarus
+  MG: added calendar to allunits and removed unused vars
+
   Revision 1.163  2001/12/04 14:28:04  lazarus
   Added hints to the main ide.
   Shane
diff --git a/lcl/allunits.pp b/lcl/allunits.pp
index 907ad8de8d..532ac87ad9 100644
--- a/lcl/allunits.pp
+++ b/lcl/allunits.pp
@@ -12,8 +12,8 @@ unit allunits;
 interface
 uses
   interfacebase, interfaces,
-	buttons,    extctrls,        registry,     vclglobals, 
-	clipbrd,    filectrl,        forms,        lcllinux,   spin, 
+	buttons,    extctrls,        registry,     vclglobals,   calendar,
+	clipbrd,    filectrl,        forms,        lcllinux,     spin, 
 	comctrls,   graphics,        lmessages,    stdctrls, 
 	controls,   imglist,         menus,        toolwin, 
 	dialogs,    messages,        utrace,       dynhasharray,
@@ -25,6 +25,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.9  2001/12/05 18:19:11  lazarus
+  MG: added calendar to allunits and removed unused vars
+
   Revision 1.8  2001/06/16 09:14:38  lazarus
   MG: added lazqueue and used it for the messagequeue
 
diff --git a/lcl/calendar.pp b/lcl/calendar.pp
index 334c8f6b17..af302a425e 100644
--- a/lcl/calendar.pp
+++ b/lcl/calendar.pp
@@ -98,11 +98,10 @@ begin
 end;
 
 procedure TCalendar.SetDate(const AValue: String);
-var
-  Temp : TDateTime;
+//var Temp : TDateTime;
 begin
    try
-     Temp := StrtoDate(AValue);  //test to see if valid date....
+     {Temp := }StrtoDate(AValue);  //test to see if valid date....
 
      FDate := AValue;
      SetProps;