Jak sprawdzić, czy dyskietka znajduje się w stacji

Zasada jest prosta. Spróbujemy coś na dyskietce zapisać. Jeżeli się uda to znaczy, że dyskietka jest w dstacji.

var
TF: TextFile;
begin
AssignFile(TF, 'A:plik.txt');
try
ReWrite(TF);
ShowMessage('Jest dyskietka');
DeleteFile('A:plik.txt');
except
raise Exception.Create('Brak dyskietki w stacjii');
end;
end;