diff --git a/lcl/interfaces/qt/qtint.pp b/lcl/interfaces/qt/qtint.pp
index fda4aca4a4..fc5863a56c 100644
--- a/lcl/interfaces/qt/qtint.pp
+++ b/lcl/interfaces/qt/qtint.pp
@@ -197,7 +197,6 @@ type
 
   pTRect = ^TRect;
 
-  procedure EventTrace(message : string; data : pointer);
   function HwndFromWidgetH(const WidgetH: QWidgetH): HWND;
   function DTFlagsToQtFlags(const Flags: Cardinal): Integer;
   function GetQtVersion: String;
@@ -302,11 +301,6 @@ begin
     Result := Result or QtTextExpandTabs;
 end;
   
-procedure EventTrace(message: string; data: pointer);
-begin
-
-end;
-
 function QtObjectFromWidgetH(const WidgetH: QWidgetH): TQtWidget;
 var
   V: QVariantH;
diff --git a/lcl/interfaces/wince/winceproc.pp b/lcl/interfaces/wince/winceproc.pp
index 4ec662b1a0..27f9a5b26a 100644
--- a/lcl/interfaces/wince/winceproc.pp
+++ b/lcl/interfaces/wince/winceproc.pp
@@ -53,7 +53,6 @@ type
 
 function WM_To_String(WM_Message: Integer): string;
 function WindowPosFlagsToString(Flags: UINT): string;
-procedure EventTrace(Message: String; Data: TObject);
 procedure AssertEx(const Message: String; const PassErr: Boolean;
   const Severity: Byte);
 procedure AssertEx(const PassErr: Boolean; const Message: String);
@@ -373,23 +372,6 @@ begin
   Result := FlagsStr;
 end;
 
-
-{------------------------------------------------------------------------------
-  Procedure: EventTrace
-  Params: Message - Event name
-          Data    - Object which fired this event
-  Returns: Nothing
-
-  Displays a trace about an event
- ------------------------------------------------------------------------------}
-procedure EventTrace(Message: String; Data: TObject);
-Begin
-  If Data = Nil Then
-    //DebugLn(Format('Trace:Event [%S] fired', [Message]))
-  Else
-    //DebugLn(Format('Trace:Event [%S] fired for %S',[Message, Data.Classname]));
-End;
-
 {------------------------------------------------------------------------------
   Function: AssertEx
   Params: Message  - Message sent