diff --git a/lcl/include/winapi.inc b/lcl/include/winapi.inc
index c5c6d9f22b..c5eeb6b8c5 100644
--- a/lcl/include/winapi.inc
+++ b/lcl/include/winapi.inc
@@ -508,11 +508,6 @@ begin
   Result := InterfaceObject.InvalidateRect(aHandle, Rect, bErase);
 end;
 
-function KillTimer (hWnd : HWND; uIDEvent : cardinal) : boolean;
-begin
-  Result := InterfaceObject.KillTimer(hWnd, uIDEvent);
-end;
-
 function LineTo(DC: HDC; X, Y: Integer): Boolean;
 begin
   Result := InterfaceObject.LineTo(DC, X, Y);
@@ -833,11 +828,6 @@ begin
   Result := InterfaceObject.SetTextColor(DC, Color);
 end;
 
-function SetTimer(hWnd: HWND; nIDEvent, uElapse: integer; lpTimerFunc: TFNTimerProc) : integer;
-begin
-  Result := InterfaceObject.SetTimer(hWnd, nIDEvent, uElapse, lpTimerFunc);
-end;
-
 function SetWindowLong(Handle: HWND; Idx: Integer; NewLong : Longint): LongInt;
 begin
   Result := InterfaceObject.SetWindowLong(handle, Idx, NewLong);
@@ -1386,6 +1376,9 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.62  2002/11/23 13:48:44  mattias
+  added Timer patch from Vincent Snijders
+
   Revision 1.61  2002/11/09 15:02:07  lazarus
   MG: fixed LM_LVChangedItem, OnShowHint, small bugs
 
diff --git a/lcl/include/winapih.inc b/lcl/include/winapih.inc
index 7629e314ac..90e31da5d9 100644
--- a/lcl/include/winapih.inc
+++ b/lcl/include/winapih.inc
@@ -144,8 +144,6 @@ Function InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolea
 //function IsCharAlphaNumeric --> independent
 //function IsRectEmpty --> independent
 
-function KillTimer (hWnd : HWND; uIDEvent : cardinal) : boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
-
 function LineTo(DC: HDC; X, Y: Integer): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 Function LoadStockPixmap(StockID: longint) : HBitmap; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 
@@ -205,7 +203,6 @@ function SetScrollInfo(Handle: HWND; SBStyle : Integer; ScrollInfo: TScrollInfo;
 function SetSysColors(cElements: Integer; const lpaElements; const lpaRgbValues): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 Function SetTextCharacterExtra(_hdc : hdc; nCharExtra : Integer):Integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function SetTextColor(DC: HDC; Color: TColorRef): TColorRef; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
-function SetTimer(hWnd: HWND; nIDEvent, uElapse: integer; lpTimerFunc: TFNTimerProc) : integer; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function SetWindowLong(Handle: HWND; Idx: Integer; NewLong : Longint): Longint;{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function SetWindowOrgEx(dc : hdc; NewX, NewY : Integer; var OldPoint: TPoint): Boolean; {$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
 function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND;
@@ -336,6 +333,9 @@ Function RGB(R, G, B : Byte) : TColorRef;
 { =============================================================================
 
   $Log$
+  Revision 1.55  2002/11/23 13:48:44  mattias
+  added Timer patch from Vincent Snijders
+
   Revision 1.54  2002/11/09 15:02:07  lazarus
   MG: fixed LM_LVChangedItem, OnShowHint, small bugs