procedure TFormDVDPlayer.cdOpenClick(Sender: TObject);
begin
 if fOpen = False then begin // ist CD-Laufwerk offen?

//*******************************************************************************************
  ImageList4.GetBitmap(2, Web_Open.Glyph); // aus ImageList Bild öffnen u. in Button ablegen
  // z.B Disk_Open.BMP
//*******************************************************************************************


  mciSEndString('SET CDAUDIO DOOR OPEN WAIT' , nil ,0, Self.Handle); // wenn nicht, öffne
  fOpen := True;
 end
 else begin
 
//******************************************************************************************
  ImageList4.GetBitmap(1, Web_Open.Glyph); // aus ImageList Bild öffnen u. in Button ablegen
  // z.B Disk_Close.BMP
//******************************************************************************************

  mciSEndString('SET CDAUDIO DOOR CLOSED WAIT' , nil ,0, Self.Handle); // wenn ja, schließe
  fOpen := False;
end
     end;