void __fastcall TForm1::ShowHintBtnClick(TObject *Sender) 
{
    //Labelを消す
    for (int i = 0; i < 4; i++)
        label[i]->Visible = false;
}

void __fastcall TForm1::SetHintBtnClick(TObject *Sender) 
{
    //Labelを表示
    for (int i = 0; i < 4; i++)
        label[i]->Visible = true;
}

void __fastcall TForm1::CommonLabelClick(TObject *Sender) 
{
    //クリックした Label を Sender から判定
    TLabel *label = dynamic_cast(Sender);
    //Tag 番号を取得する
    int tag = label->Tag;

    //ヒントを入力する
    AnsiString input_msg = InputBox(
                           "入力",
                           "ヒントを入力してください。",
                           label->Caption);
    //キャンセルなら処理終わり
    if (input_msg == label->Caption) return;

    //入力されたヒントを PaintBox に代入する
    paintbox[tag]->Hint = input_msg;
    //Caption を変更
    label->Caption = input_msg;   
}