Hvorfor virker dette egentlig ikke?

Jeg tror din kode virker helt fint - du kan bare ikke se det ! Humlen er nemlig at den ændring du har lavet af komponenternes visible property godt nok bevirke at komponenter bliver invalidated (dvs. den skal gentegnes) men daen reelle gentegning sker først efter at Button1Click handleren er kørt færdig ! (Hvor alle properties er ændret tilbage igen.)

Du skal bruge Update() metoden til at gennemtvinge en gentegning inden du starter dit loop:

void __fastcall TMainForm::Button1Click(TObject *Sender)
{
  yourResult->Visible = false ;
  Result->Visible = false ;
  testRunning->Visible = true ;
  Update(); // Tving gentegning

  int doubleThis=2;
  int loopcount=0;

  time_t goal=time(NULL) + 15;

  for (; time(NULL)!=goal; loopcount++)
  {
        doubleThis*=2;
  }

  testRunning->Visible = false ;

  yourResult->Visible = true ;
  Result->Caption = loopcount ;
  Result->Visible = true ;
}

Du behøver ikke nogen Update() efter endt loop - det vil ske automatisk når programmet kommer igennem sit næste MessageLoop. (Som opdager at komponenterne er blevet invalidated, og derfor laver en gentegning.)

Det jo fantastisk det her :) Tak for hjælpen