void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TForm2 * FFF = new TForm2(Application);
    FFF->ShowModal();
    delete FFF;
}
고치시는게 보기 좋고요..

폼을 BorderStyle을 다이얼로그 속성으로 설정하신 뒤 ModalResult 로
값을 넣으면 될 것 같네요..
Show에서 안 사라지면, 다른 이벤트에서  Close()하시면 될 것 같네요.