[[cHackAll]]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
 switch ((char)GetVersion())
 {
  case 5: ShowMessage("eQuispe"); break;
  case 6: ShowMessage("Vista"); break;
  default: ShowMessage("Dinosaurio?");
 }
}