diff --git a/lcl/interfaces/gtk/gtkproc.inc b/lcl/interfaces/gtk/gtkproc.inc
index a25e1cf6bc..bb09ac1f7c 100644
--- a/lcl/interfaces/gtk/gtkproc.inc
+++ b/lcl/interfaces/gtk/gtkproc.inc
@@ -1044,8 +1044,9 @@ function DeliverMessage(const Target: Pointer; var AMessage): Integer;
 begin
   if Target=nil then writeln('[DeliverMessage] Target = nil');
   {$IFDEF VerboseDeliverMessage}
-  writeln('DeliverMessage ',TComponent(Target).Name,':',TObject(Target).ClassName,
-          ' Message=',TLMessage(AMessage).Msg);
+  writeln('DeliverMessage ',HexStr(Cardinal(Target),8),
+    ' ',TComponent(Target).Name,':',TObject(Target).ClassName,
+    ' Message=',GetMessageName(TLMessage(AMessage).Msg));
   {$ENDIF}
   if TObject(Target) is TControl then
   begin
@@ -1059,7 +1060,6 @@ begin
   Result := TLMessage(AMessage).Result;
 end;
 
-
 {------------------------------------------------------------------------------
   Function: ObjectToGTKObject
   Params: AObject: A LCL Object
@@ -3949,6 +3949,9 @@ end;
  { =============================================================================
 
   $Log$
+  Revision 1.155  2002/12/27 17:12:38  mattias
+  added more Delphi win32 compatibility functions
+
   Revision 1.154  2002/12/22 23:13:31  mattias
   fixed mem leak of tooltips in GetStyle