Нужно написать КЛАСС.программа окрывает и закрывает дисковод.а так же определяет его наличие

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, XPMan, ComCtrls, ShellApi;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;
    XPManifest1: TXPManifest;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1    : TForm1;
  AllDrive : TStringList;
 
implementation
 
{$R *.DFM}
 
Uses DriveTools;
 
 
Function GetAllDrive: TStringList;
Var C : Char;
begin
  For C := 'A' to 'Z' do
  Begin
    case GetDriveType(PChar(C+':\')) of
      0 : ;//ShowMessage('The drive type cannot be determined');
      1 : ;//ShowMessage('The root directory does not exist');
      DRIVE_REMOVABLE : ;//ShowMessage('The disk can be removed');
      DRIVE_FIXED     : ;//ShowMessage('The disk cannot be removed');
      DRIVE_REMOTE    : ;//ShowMessage('The drive is remote (network) drive');
      DRIVE_CDROM     : AllDrive.Add(C+':\'); //ShowMessage('The drive is a CD-ROM drive');
      DRIVE_RAMDISK   : ;//ShowMessage('The drive is a RAM disk');
    end;
  end;
  Result := AllDrive
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  AllDrive := TStringList.Create;
  ComboBox1.Items := GetAllDrive;
  ComboBox1.ItemIndex := 0;
  Label2.Caption := IntToStr(ComboBox1.Items.Count)+' CD/DVD - ROM';
  AllDrive.Destroy
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  If ComboBox1.Text[1] <> '' then OpenCD(ComboBox1.Text[1])
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  If ComboBox1.Text[1] <> '' then CloseCD(ComboBox1.Text[1])
end;
 
procedure TForm1.Label3Click(Sender: TObject);
begin
  ShellExecute(Application.Handle,'open','Den4ik',nil,nil,0);
end;
 
end.