Saber si hay un disco dentro del lector de CD/DVD

[[ElDioni]]

Creo que no has declarado la funcion en la cabecera, tomo un ejemplo del amigo Dec para ilustrar lo que te digo.

Código Delphi [-]
unit Global;  

interface  

function SayHello() : boolean;   

Var   
Vusuario : string;   
vCia     : string;   
MonedaBase : String;   
Detener   : boolean;  

implementation  

uses   

Dialogs;  

function SayHello() : boolean; 
begin   
Dialogs.ShowMessage( 'Hello!' );   
result := true; 
end;  

end.

Saludos.