enviar documento cargado a programa

[jonydread]

funciona ese codigo si coloco las rutas que no es la idea

Código Delphi [-]
 PChar('c:\miarchivo.reg')

en cambio asi

Código Delphi [-]
 PChar(OpenDialog1.FileName)

no hace nada probe con edit1.text y tampoco lo botones que tengo estan asi

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Filter := 'Archivos de registro|*.reg';
opendialog1.Execute;
if FileExists(OpenDialog1.FileName) then
  else
    ShowMessage(Edit1.Text+' Archivo no encontrado');
edit1.Text := OpenDialog1.FileName;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    ShellExecute(Handle, 'open', 'HANDLER.CMD', PChar(OpenDialog1.FileName), nil, SW_NORMAL);

end;

primer boton carga archivo
segundo lo envia al programa externo
gracias!