关于delphi的过程处理（急）

一个在单击事件里面能够执行的代码，但是定义成过程就不行，这是怎么回事？请高手帮忙。。
全部代码如下：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,mmsystem, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
procedure opendvd; //打开光驱
begin
try
mciSendString('Set cdaudio door open wait', nil, 0, handle); //这句过不了
except
end;

{$R *.dfm}

//这里面的能够正常执行
procedure TForm1.Button1Click(Sender: TObject);
begin
try
mciSendString('Set cdaudio door open wait', nil, 0, handle);
except
end;
end;
end.

关于delphi的过程处理（急） 关于Delphi的一个过程函数请教！ 关于DELPHI的一些问题,急啊 急！求教关于Delphi的一个问题 急！！关于delphi的简单问题 delphi里面的子程序不能含有paintbox控件的处理过程？ delphi调用过程的问题? 各位大虾 ，关于DELPHI的问题急，关于一个代码， 关于DELPHI 数据转换，急！ 急!DELPHI的问题!