Executing default action of an Ole Container

To execute the default action of an Ole Container (open a Word or Excel document or run a Powerpoint presentation), you can use this code:

procedure TForm1.Button1Click(Sender: TObject);

begin

  OleContainer1.DoVerb(ovprimary);

end;