unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ShellApi;

type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    OP: TOpenDialog;
    Img: TImage;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if OpenDialog.Execute
then begin
image.Picture.LoadFromFile(OpenDialog.FileName);
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
ShellExecute(0,'open','Proga.exe',nil,nil, SW_ShowNormal);
end;

end.

if OpenDialog1.Execute then
   begin
    if ShellExecute(Application.handle, nil, PChar(OpenDialog1.FileName), nil, nil, SW_SHOWNORMAL)<=32 then
       MessageDlg('Такого файла не не существует, КРОСАФЧЕГ!',
                 [mbOk], 0);

ShellExecute(0,'open',PChar(ExtractFilePath(ParamStr(0))+'Proga.exe'),nil,nil, SW_ShowNormal);

function ExtractFilePath(const FileName: string): string;

var
  Temp:string;
.........
Temp:=ExtractFilePath(Application.ExeName) + 'Proga.exe';
ShellExecute(Application.handle, nil, PChar(Temp), nil, nil, SW_SHOWNORMAL);

ShellExecute(Application.handle, nil, PChar(OP.FileName), nil, nil, SW_SHOWNORMAL);