大家来看看啊TOpenDialog没有反应啊解决方法

大家来看看啊，TOpenDialog没有反应啊
procedure   TForm1.Button1Click(Sender:   TObject);
var     openDialog:TOpenDialog;
begin

openDialog.execute;

end;
按了botton1后怎么没反应呢？先谢谢了

[解决办法]
因为openDialog没有创建TOpenDialog类的实例:

procedure TForm1.Button1Click(Sender: TObject);
var openDialog:TOpenDialog;
begin
openDialog := TOpenDialog.Create(Self);
try
openDialog.execute;
finally
FreeAndNil(openDialog);
end;
end;