Status tacki cdrom'u

Witam!
Męczę się nad jedną rzeczą. Jak mogę sprawdzić czy tacka od cdromu jest wysunięta i wsunięta?
Nie wchodzi mi o procedurę, która wsunie lub wysunie tackę, bo to znalazłem w FAQ szukając odpowiedzi na powyższe pytanie. Za pomoc z góry dzięki!!

http://www.in4.pl/komentarze.htm?kbt=N&news_id=6313

Niektóre napedy nie mają tacki i co wtedy? System nie ma dostępu do informacji o budowie jego. Skorzystaj z tego co masz w FAQ albo co było niedawano na forum.

Nie interesują mnie niektóre napędy tylko mój, który ma tackę. Piszę to na swój cdrom z tacką, a nie dla kogoś bez tacki. :]

OK znalazłem takie coś:

procedure WMDeviceChange(var Msg: TMsg); message WM_DEVICECHANGE; 

procedure TForm1.WMDeviceChange(var Msg: TMsg); 
begin 
    if Msg.wParam = DBT_DEVICEREMOVEPENDING then 
        // user has started to eject CD 
        // Tell Windows it's OK. 
        Msg.Result := True; 
end; 

Tą pierwszą procedurę wrzuciłem tam na górę do type, ale nie wiem co mam zrobić z tym
procedure TForm1.WMDeviceChange(var Msg: TMsg);
begin
if Msg.wParam = DBT_DEVICEREMOVEPENDING then
// user has started to eject CD
// Tell Windows it's OK.
Msg.Result := True;

aby już wszystko dobrze działało :(

OK już zrobiłem tylko wyskakuje mi błąd przy Result
[Error] Unit1.pas(87): Undeclared identifier: 'Result'

w linijce Msg.Result := True;