diff --git a/wst/trunk/indy_http_server.pas b/wst/trunk/indy_http_server.pas
index 7b9cf8f2d..a8cf0fd9f 100644
--- a/wst/trunk/indy_http_server.pas
+++ b/wst/trunk/indy_http_server.pas
@@ -84,6 +84,7 @@ type
     class function GetDescription() : string;override;
     procedure Start();override;
     procedure Stop();override;
+    function IsActive : Boolean; override;
   end;
 
 
@@ -303,6 +304,11 @@ begin
   Result := 'WST Indy HTTP Listener';
 end;
 
+function TwstIndyHttpListener.IsActive: Boolean;
+begin
+  Result := FHTTPServerObject.Active;
+end;
+
 initialization
 
 
diff --git a/wst/trunk/indy_tcp_server.pas b/wst/trunk/indy_tcp_server.pas
index 1cbc1b1c8..71ddfd50d 100644
--- a/wst/trunk/indy_tcp_server.pas
+++ b/wst/trunk/indy_tcp_server.pas
@@ -62,6 +62,7 @@ type
     class function GetDescription() : string;override;
     procedure Start();override;
     procedure Stop();override;
+    function IsActive : Boolean; override;
   end;
 
 implementation
@@ -248,6 +249,11 @@ procedure TwstIndyTcpListener.Stop();
 begin
   if FTCPServerObject.Active then
     FTCPServerObject.Active := False;
+end; 
+
+function TwstIndyTcpListener.IsActive: Boolean;
+begin
+  Result := FTCPServerObject.Active;
 end;
 
 end.
diff --git a/wst/trunk/server_listener.pas b/wst/trunk/server_listener.pas
index 3783779d6..cad8b7584 100644
--- a/wst/trunk/server_listener.pas
+++ b/wst/trunk/server_listener.pas
@@ -34,6 +34,7 @@ type
     class function GetDescription() : string;virtual;
     procedure Start();virtual;abstract;
     procedure Stop();virtual;abstract;
+    function IsActive : Boolean; virtual;abstract;
     procedure NotifyMessage(const AMsg : string);
     property OnNotifyMessage : TListnerNotifyMessage read FOnNotifyMessage write FOnNotifyMessage;
   end;
diff --git a/wst/trunk/synapse_tcp_server.pas b/wst/trunk/synapse_tcp_server.pas
index 497453e98..46c2fdd36 100644
--- a/wst/trunk/synapse_tcp_server.pas
+++ b/wst/trunk/synapse_tcp_server.pas
@@ -82,6 +82,7 @@ type
     destructor Destroy();override;
     procedure Start();override;
     procedure Stop();override;
+    function IsActive : Boolean; override;
   end;
   
 implementation
@@ -325,6 +326,11 @@ begin
   inherited Destroy();
 end;
 
+function TwstSynapseTcpListener.IsActive: Boolean;
+begin
+  Result := (FServerThread <> nil) and (not FServerThread.Suspended);
+end;
+
 procedure TwstSynapseTcpListener.Start();
 begin
   if ( FServerThread = nil ) then