1:
2:
3:
4:
5:
6:

try
//Öffne Laufwerk
except
on ExceptionName do
showmessage('Kein Datenträger im Laufwerk');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure TForm1.FormCreate(Sender: TObject);
var
 x: Byte;
 d: DWord;
begin
  ComboBox1.Text:='Laufwerk ?';
  d := GetLogicalDrives;
   for x := 0 to 31 do begin
    if odd(d) then
  ComboBox1.Items.add(chr(x+65));
  d := d shr 1;
 end;
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
var
Errormode: word;
begin
  if Combobox1.ItemIndex>0 then Listebutton.Enabled:=True;
  if Combobox1.ItemIndex=0 then
begin
 Errormode := SetErrorMode(SEM_FAILCRITICALERRORS);
 if Diskfree(1)=-1 then
 ShowMessage('Keine Diskette in Laufwerk A: !');
 if Diskfree(1)=-1 then Listebutton.Enabled:=False else Listebutton.Enabled:=True;
 SetErrorMode(Errormode);
end;
end;
end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm.DriveComboBoxChange(Sender: TObject);
begin
  try
    DirectoryListBox.Directory := DriveComboBox.Drive + ':\';
  except
  on EInOutError do
  showmessage('Kein Datenträger im Laufwerk');
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.DriveComboBox1Change(Sender: TObject);
var Errormode: word;
    aDrive : Char;
begin
  //DriveComboBox1.TextCase auf tcLowerCase ?
  aDrive := UpCase(DriveComboBox1.Drive);
  //mehrmaliges onChange berücksichtigen
  if UpCase(DirectoryListBox1.Drive) <> aDrive then
    begin
    Errormode := SetErrorMode(SEM_FAILCRITICALERRORS);//Systemmeldung ausschalten
    if Diskfree(ord(aDrive)-64)=-1 then
      begin
      showmessage('Datenträger nicht formatiert oder kein Datenträger im Laufwerk "'+aDrive + ':\"');
      //zurücksetzen auf zuletzt gewähltes Laufwerk
      DriveComboBox1.Drive := DirectoryListBox1.Drive;
      end
      else
        DirectoryListBox1.Drive := aDrive;
    SetErrorMode(Errormode);
    end;
end;