Title: is there a Floppy present?
Question: If you want to know if there's a floppy in the drive and you
want to avoid the massege "Drive a:\ is not ready" simply
use the following code
Answer:
procedure TForm1.Button1click(Sender : TObject);
begin
if not directoryexists('a:\') then
MessageDlg('There is no floppy present',mtError,[mbOk],0)
else
{ use the drive to write files to it }
end;