Issue 19

Author: MaxiDonkey@hotmail.com

source/MistralAI.Chat.pas

@@ -1234,7 +1234,9 @@ procedure TChatRoute.AsyncCreateStream(ParamProc: TProc<TChatParams>;
                                  following processing}
                             LocalChat.Free;
                           end;
-                        end);
+                        end)
+                      else
+                        LocalChat.Free;
                     end
                   else
                   if IsDone then

source/MistralAI.Codestral.pas

@@ -839,7 +839,9 @@ procedure TCodestralRoute.AsyncCreateStream(ParamProc: TProc<TCodestralParams>;
                                  following processing}
                             LocalCode.Free;
                           end;
-                        end);
+                        end)
+                      else
+                        LocalCode.Free;
                     end
                   else
                   if IsDone then

source/MistralAI.Types.pas

@@ -1625,7 +1625,7 @@ class function TRepositoryTypeHelper.Create(
 begin
   var index := IndexStr(Value.ToLower, ['github']);
   if index = -1 then
-    raise Exception.Create(' Invalid repository value.');
+    raise Exception.Create('Invalid repository value.');
   Result := TRepositoryType(index);
 end;