Menu en Delphi problemas con ShellExecute

[RubenXE]

El tema es que estoy dentro de otro procedure y no puedo poner el otro procedure

Procedure TDMMain.AbrirArchivo(Archivo: string);

Porque el que estoy usando es

procedure TForm1.FormCreate(Sender: TObject);