Remove unneeded casts

1 files changed, 2 insertions, 2 deletions

diff --git a/UMain.pas b/UMain.pas
index 42a19a3..d80bafd 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -6099,7 +6099,7 @@ begin
 
     if ConfWarnUnsavedConnection then begin
       DontShowAgain := False;
-      res := MessageBoxShowOnce(PGtkWindow(FWidget), PChar(Format(LANGTheActiveConnectionHasNotBeenSaved, [Engine.GetPathURI])), LANGDontShowAgain, DontShowAgain, Buttons, mbWarning, mbNo, CancelButton);
+      res := MessageBoxShowOnce(PGtkWindow(FWidget), Format(LANGTheActiveConnectionHasNotBeenSaved, [Engine.GetPathURI]), LANGDontShowAgain, DontShowAgain, Buttons, mbWarning, mbNo, CancelButton);
       if DontShowAgain then begin
         ConfWarnUnsavedConnection := False;
         WriteMainGUISettings;
@@ -6569,7 +6569,7 @@ begin
   if tmp = nil then begin
     err := errno;
     DebugMsg(['(EE) ExtractFromArchive: Couldn''t create temporary directory: ', strerror(err)]);
-    Application.MessageBox(PChar(Format(LANGHandleRunFromArchive_CouldntCreateTemporaryDirectory, [s, string(strerror(err))])), [mbOK], mbError, mbOK, mbOK);
+    Application.MessageBox(Format(LANGHandleRunFromArchive_CouldntCreateTemporaryDirectory, [s, string(strerror(err))]), [mbOK], mbError, mbOK, mbOK);
     Result := False;
     Exit;
   end;