fix: restore displayed session name in message dialog caption, was removed in commit:63028518f8b0d5869383d3bc0c42f188851797ed

See https://www.heidisql.com/forum.php?t=45080

Author: ansgarbecker

source/apphelpers.pas

@@ -2512,6 +2512,8 @@ function MessageDialog(const Title, Msg: string; DlgType: TMsgDlgType; Buttons:
     end;
     if Title <> Dialog.Caption then
       Dialog.Title := Title;
+    if Assigned(MainForm) and (MainForm.ActiveConnection <> nil) and (MainForm.ActiveConnection.Parameters <> nil) then
+      Dialog.Caption := MainForm.ActiveConnection.Parameters.SessionName + ': ' + Dialog.Caption;
     rx := TRegExpr.Create;
     rx.Expression := 'https?://[^\s"]+';
     if ThemeIsDark then

source/dbconnection.pas

@@ -2235,7 +2235,7 @@ destructor TDBConnection.Destroy;
   FInformationSchemaObjects.Free;
   FNamedEnums.Free;
   if FOwnsParameters then
-    FParameters.Free;
+    FreeAndNil(FParameters);
   inherited;
 end;