* Fix bug ID #28158

git-svn-id: trunk@31020 -

packages/fcl-web/src/base/fpwebclient.pp

@@ -117,6 +117,8 @@ Type
     // Must create a request.
     Function DoCreateRequest : TWebClientRequest; virtual; abstract;
   Public
+    Destructor Destroy; override;
+
     // Executes the HTTP method AMethod on AURL. Raises an exception on error.
     // On success, TWebClientResponse is returned. It must be freed by the caller.
     Function ExecuteRequest(Const AMethod,AURL : String; ARequest : TWebClientRequest) : TWebClientResponse;
@@ -233,6 +235,12 @@ begin
     end;
 end;
 
+destructor TAbstractWebClient.Destroy;
+begin
+  LogFile:='';
+  inherited Destroy;
+end;
+
 procedure TAbstractWebClient.LogRequest(AMethod, AURL: String;
   ARequest: TWebClientRequest);