function HayDisquete(var Razon: Integer): Boolean;
var
  Handle: THandle;
  FindData: TWin32FindData;
begin
  Razon := NO_ERROR;    { Al menos, de momento }
  FillChar(FindData, SizeOf(TWin32FindData), 0);
  Handle := Windows.FindFirstFile(PChar('A:\*.*'), FindData);
  if (INVALID_HANDLE_VALUE <> Handle) then
  begin
    Windows.FindClose(Handle);    { El disquete est&aacute; montado y tiene alg&uacute;n archivo }
    Result := TRUE;
  end
  else
  begin
    Razon := Windows.GetLastError;
    Case (Razon) of
    ERROR_FILE_NOT_FOUND:
      begin
        Result := TRUE;     { El disquete est&aacute; montado pero no tiene ning&uacute;n archivo }
      end;
    ERROR_NOT_READY:
      begin
        Result := FALSE;    { El disquete no est&aacute; montado }
      end;
      else
      begin
        Result := FALSE;    { &iquest;Qu&eacute; error se ha producido?: comprobar a la salida }
      end;
    end;
  end;
end;
 
 
 

 
procedure TForm1.Button1Click(Sender: TObject);
var
  razon: integer;
begin
  razon:=1;
  if HayDisquete(razon) then
    showmessage('Hay disco');
end;