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

@@ -2367,6 +2367,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

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