diff --git a/lib/delphi/test/client.dpr b/lib/delphi/test/client.dpr
index d0152bf..d14079d 100644
--- a/lib/delphi/test/client.dpr
+++ b/lib/delphi/test/client.dpr
@@ -44,6 +44,7 @@
 
 begin
   try
+    Writeln( 'Delphi TestClient '+Thrift.Version);
     nParamCount := ParamCount;
     SetLength( args, nParamCount);
     for i := 1 to nParamCount do
diff --git a/lib/delphi/test/server.dpr b/lib/delphi/test/server.dpr
index 768de01..d6a53bc 100644
--- a/lib/delphi/test/server.dpr
+++ b/lib/delphi/test/server.dpr
@@ -43,6 +43,7 @@
 
 begin
   try
+    Writeln( 'Delphi TestServer '+Thrift.Version);
     nParamCount := ParamCount;
     SetLength( args, nParamCount);
     for i := 1 to nParamCount do