Ошибка при битом PNG файле

[Kronos913]

Использую юнит из архива

И вот такой вот код:

procedure PNGLoadBMP(const FName:string; var bmp1:TBitMap);
var
   png: TPNGObject;
begin
  png:= TPNGObject.Create;
  png.LoadFromFile(FName);
  bmp1.Assign(png);
  png.Free;
end;

При наличии битого PGN файла, программа обрывает все действия, из-за чего не получается сделать нормальную обработку ошибки
То есть, программа НЕ совершает действий, которые прописаны после вызова данной процедуры

Попробовал сделать так:

procedure PNGLoadBMP(const FName:string; var bmp1:TBitMap);
var
   png: TPNGObject;
begin
 try
  png:= TPNGObject.Create;
  png.LoadFromFile(FName);
  bmp1.Assign(png);
 finally
  png.Free;
 end;
end;

Не помогло. Все равно программа впадает в ступор, и НЕ делает действий, которые должны быть после вызова процедуры

[evg_m]

finally НЕ останавливает "распространение" ошибки.
оно позволяет что-то сделать даже если была ошибка НО затем ошибка распространяется далее.

для "гашения" ошибки используется except c возможностью выбора типа ошибок подлежащих "гашению"

[Kronos913]

Сделал вот такой код:

procedure PNGLoadBMP(const FName:string; var bmp1:TBitMap);
var
   png: TPNGObject;
begin
  png:= TPNGObject.Create;
  try
   png.LoadFromFile(FName);
   bmp1.Assign(png);
  except
             
  end;
  png.Free;
end;

Если выполнять через exe - все отлично. Битый файл условно игнорируется, программа выполняется дальше
Если выполнять через run - в процессе выполнения выскакивает это вот окно

[evg_m]

https://programmersforum.ru/showpost...7&postcount=10