Помогите правильно составить if > then > else

[tim21701]

При создании (OnCreate) формы "О программе" читаю dll и загружаю из него фона для окна.

Если about.dll существует - читаю и загружаю изображение.
Если файла не существует - вывожу сообщение.

Собственно сам листинг:

procedure TAboutForm.FormCreate(Sender: TObject);
var
  LibHandle: THandle;
  info: Tbitmap;
begin
  LibHandle:=Loadlibrary('about.dll');
  if FileExists('about.dll')
    then
  try
    if LibHandle<>0 then
    begin
      info:=TBitmap.Create;
      info.LoadFromResourceName(LibHandle,'info');
      ImageGlobalFon.Canvas.Draw(0,0,info);
      end;
    finally
    end
  else
      begin
        Application.MessageBox
        ('Библиотека about.dll повреждена или не найдена.',
        'Ошибка чтения данных', MB_ICONERROR + MB_OK);
        Application.Terminate;
      end;
  FreeLibrary(LibHandle);
end;

Всё работает прекрасно, однако...
Если удалить about.dll и создав на его месте какой нибудь файл с таким же именем, получаем системное уведомление:

"С:\temp\Win32\Debug\about.dll" либо не предназначен для выполнения под управлением Windows или содержит ошибку. Попробуйте переустановить программу с помощью исходного установочного носителя или обратитесь к системному администратору или поставщику программного обеспечения за поддержкой.

После чего, программа не отвечает и остаётся висеть в процессах...

Как вместо этого, использовать своё сообщение - такое же, которое выводится при отсутствии файла?
Подскажите пожалуйста.

[Filka]

procedure TAboutForm.FormCreate(Sender: TObject);
var
  LibHandle: THandle;
  Info: TBitmap;
  OldErrorMode: UINT;
begin
  try
    OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
    try
      LibHandle := LoadLibrary('about.dll');
      if GetLastError <> ERROR_SUCCESS then // GetLastError = 193 
        Abort;
    finally
      SetErrorMode(OldErrorMode);
    end;

    if LibHandle <> 0 then
      try
        Info := TBitmap.Create;
        try
          Info.LoadFromResourceName(LibHandle, 'info');
          ImageGlobalFon.Canvas.Draw(0, 0, Info);
        finally
          Info.Free;
        end;
      finally
        FreeLibrary(LibHandle);
      end;
  except
    Application.MessageBox('Библиотека about.dll повреждена или не найдена.',
      'Ошибка чтения данных', MB_ICONERROR or MB_OK);
    Application.Terminate;
  end;
end;

Или:

procedure TAboutForm.FormCreate(Sender: TObject);
var
  LibHandle: THandle;
  Info: TBitmap;
  OldErrorMode: UINT;
begin
  OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    LibHandle := LoadLibrary('about.dll');
  finally
    SetErrorMode(OldErrorMode);
  end;

  if LibHandle <> 0 then
    try
      Info := TBitmap.Create;
      try
        Info.LoadFromResourceName(LibHandle, 'info');
        ImageGlobalFon.Canvas.Draw(0, 0, Info);
      finally
        Info.Free;
      end;
    finally
      FreeLibrary(LibHandle);
    end
  else
  begin
    Application.MessageBox('Библиотека about.dll повреждена или не найдена.',
      'Ошибка чтения данных', MB_ICONERROR or MB_OK);
    Application.Terminate;
  end;
end;

?

[tim21701]

Filka огромное спасибо!)
Уже помогли, со всеми проверками

procedure TAboutForm.FormCreate(Sender: TObject);
var
  LibHandle: hmodule;
  info: Tbitmap;
begin
  if not fileexists('about.dll') then
    with application do
    begin
      MessageBox('Библиотека about.dll не найдена.', 'Ошибка чтения данных',
        MB_ICONERROR + MB_OK);
      Terminate;
      exit;
    end;
  LibHandle := safeLoadlibrary('about.dll', SEM_FAILCRITICALERRORS);
  if LibHandle = 0 then
    with application do
    begin
      MessageBox('Библиотека about.dll повреждена.', 'Ошибка чтения данных',
        MB_ICONERROR + MB_OK);
      Terminate;
      exit;
    end;
  info := Tbitmap.Create;
  try
    info.LoadFromResourceName(LibHandle, 'INFO');
  except
    with application do
    begin
      MessageBox('Ресурс INFO не найден.', 'Ошибка чтения данных',
        MB_ICONERROR + MB_OK);
      Terminate;
      exit;
    end;
  end;
  ImageGlobalFon.Canvas.Draw(0, 0, info);
  info.Free;
  FreeLibrary(LibHandle);
end;