// ---------------------------------------------------------------------------
 

#include <vcl.h>
#pragma hdrstop

#include  "Unit1.h" 
// ---------------------------------------------------------------------------
 
#pragma package(smart_init)
#pragma resource  "*.dfm" 
TForm1 *Form1;
// ---------------------------------------------------------------------------
 
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
// ---------------------------------------------------------------------------
 

bool fl = true;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int h =  0 ;

  while (fl)
  {
    h++;
    if (h> 1000000 ) h =  0 ;
    Application->ProcessMessages();
    Label1->Caption = IntToStr(h);
  }
}
// ---------------------------------------------------------------------------
 

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  fl = false;
  Form1->Close();      
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int h =  0 ;
  fl = true;
  while (fl)
  {
    h++;
    if (h> 1000000 ) h =  0 ;
    Sleep( 3000 );                           // < --- Тут
 
    Label1->Caption = IntToStr(h);
    Application->ProcessMessages();
  }
  Label1->Caption = IntToStr(h)+ "sdfsd" ;
}

void __fastcall TForm1::FormKeyPress(TObject *Sender, char &Key)
{
  if (Key == 'h') fl = false;
}