Minor fix

diff --git a/bottleclient/Logs.pas b/bottleclient/Logs.pas
index b64580a..0748fad 100755 (executable)
--- a/bottleclient/Logs.pas
+++ b/bottleclient/Logs.pas
@@ -260,11 +260,9 @@ procedure TBottleLogList.HttpSuccess(Sender: TObject);
 var Stream: TStringStream;
     StrList: TStringList;
 begin
-  StrList := nil;
-  Stream := nil;
+  Stream := TStringStream.Create(FHttpThread.RecvString);
+  StrList := TStringList.Create;
   try
-    Stream := TStringStream.Create(FHttpThread.RecvString);
-    StrList := TStringList.Create;
     StrList.Text := Stream.DataString;
     if StrList[0] <> 'Result: OK' then begin
       if Assigned(FOnLoadFailure) then