请教：如何处理要访问的驱动器未准备好的错误(50分)

编了一个文件管理的程序，有DriveComboBox 如果访问一个没有准备好的设备（如光驱）会出现严重错误，请教高手这个异常处理应该怎么写？

1.自定义异常
public
procedure MyOnException(Sender: TObject; E: Exception);
end
...
procedure TForm1.MyOnException(Sender: TObject; E: Exception);
begin
if Pos('I/O error',e.Message)=1 then
ShowMessage(e.Message+'I/O错误,可能是设备没准备好,请检查');
end;

2.替系统的异常处理过程
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException:= MyOnException;
end;