在DELPHI在怎样判断软盘中没有磁盘(10分)

在做一个软件时需要进行软盘操作，
但是我不知道用什么方法判断软驱中有没有磁盘。
请各位大虾帮我。

{$I-}
任何软盘操作
{$I+}
读IOResult

比如说，我要读出软磁盘中的内容时我要判断磁盘是否已经插入软驱中。
若已经插入其中我才能从中读出磁盘中的数据。
否则将会出错。
所以我要判断软盘是否在磁盘中

可不可以这样
while(!finished){
try{
....
finished=true;
}
catch(SomeException E){
Msg("No Floapy");
}
}

用 下 面 这 个 函 数 ：
function DiskInDrive(const Drive: char): Boolean;
var
DrvNum: byte;
EMode: Word;
begin
result := false;
DrvNum := ord(Drive);
if DrvNum >= ord('a') then dec(DrvNum,$20);
EMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
if DiskSize(DrvNum-$40) <> -1 then result := true
else messagebeep(0);
finally
SetErrorMode(EMode);
end;
end;

接受答案了.

说详细点吧！