--- ibx/trunk/examples/isqlmonitor/MonitorFormUnit.pas	2015/07/14 15:31:25	32
+++ ibx/trunk/examples/isqlmonitor/MonitorFormUnit.pas	2015/07/18 12:30:52	33
@@ -34,10 +34,7 @@ implementation
 
 procedure TMonitorForm.IBSQLMonitor1SQL(EventText: String; EventTime: TDateTime);
 begin
-  Memo1.Lines.Add(DateTimeToStr(EventTime) + ': ' + EventText);
-  {$IFDEF WINDOWS}
-  Application.ProcessMessages;
-  {$ENDIF}
+  Memo1.Lines.Add(FormatDateTime('dd/mm/yyyy hh:nn:ss.zzzz',EventTime) + ': ' + EventText);
 end;
 
 procedure TMonitorForm.FormShow(Sender: TObject);