void __fastcall TForm1::Save1Click(TObject *Sender)
{
    WORD n;
    // ファイル名が取得できなければ終了
    if (!OpenDialog1->Execute()) return;

    // Image1 にアイコンを表示
    Image1->Picture->Icon->Handle = 
                          ExtractAssociatedIcon(
                          HInstance,
                          OpenDialog1->FileName.c_str(), 
                          &n);
    // ファイル名を保持
    appname = OpenDialog1->FileName;
}

void __fastcall TForm1::Delete1Click(TObject *Sender) 
{
    // ファイル名を削除
    appname = "";

    // アイコンを消す
    Image1->Picture = NULL;
}

void __fastcall TForm1::Image1Click(TObject *Sender) 
{
    // 登録ファイルがなければ終了
    if (appname == "") return; 

    //アプリを起動
    ShellExecute(Application->Handle,
                 "open",
                 appname.c_str(),
                 NULL,
                 NULL,
                 SW_SHOW);
}