Progblem mit CD öffnen/schließen programm

[Crazy Ivan]

entweder du schreibst

form1.edit1.text (wenn du überhaupt ein edit hast?!?)

oder du machst die procedure OpenCDDrive zu einer methode deiner tform1, so:

Delphi-Quellcode:

// ...
type
  TForm1 = class(TForm)
    edit1: TLabeledEdit;
    Button1: TButton;
    procedure OpenCDDrive(const ADriveChar: Char; Open: Boolean); 

// ...