FIX: Extra semicolon after "then"

(cherry picked from commit 530aafdc2d)
This commit is contained in:
Alexander Koblov 2024-12-15 00:16:21 +03:00
commit 45caf2da51

View file

@ -33,7 +33,7 @@ begin
if Assigned(AError) then
begin
AResult:= g_error_matches (AError, g_io_error_quark(), G_IO_ERROR_EXISTS);
if not AResult then;
if not AResult then
begin
if g_error_matches (AError, g_io_error_quark(), G_IO_ERROR_NOT_SUPPORTED) then
AskQuestion(rsMsgErrNotSupported, '', [fsourOk], fsourOk, fsourOk)