Обращаюсь к дискам через стандартный компонент

При обращении к пустому диску А (или CD Rom),
Виндовое сообщение "I/O error 21" выходит, а мое
"В устройстве А: отсутстувет диск" нет.
Как перехватить Виндовое и вместо него дать мое.
Не могу понять чего я не прописал?

////////////////////////////////////////////////////////////////

procedure TfmForm1.DriveComboBox1Change(Sender: TObject);

var Ch: Char;
begin
Ch := DirectoryListBox1.Drive;
try
DirectoryListBox1.Drive := DriveComboBox1.Drive;
except
MessageBeep(MB_ICONHAND);
MessageDlg('В устройстве "'+UpCase(DriveComboBox1.Drive)+':"'+' отсутствует диск.', mtError, [mbOk], 0);
DriveComboBox1.Drive := Ch
end
end;
//////////////////////////////////////////////////////////////////

Попробуй так:

Код

TfmForm1.DriveComboBox1Change(Sender: TObject); var Ch: Char; begin Ch := DirectoryListBox1.Drive; {$I-} DirectoryListBox1.Drive := DriveComboBox1.Drive; {$I+} if IOResult<>0 then DriveComboBox1.Drive := Ch; end;

Ты из Дельфи запускаеш прогу? Если так, то попробуй запустить ей вне Дельфи.