Как сделать "Старт", "Пауза", Стоп"?

 #include <conio.h>  //для ввода
#include <stdio.h>   // для вывода
# include <Windows.h> // для задержки
int main()
{
int inter=0;
bool start=false;
char tmp=0;
while(1)
 {
    if(kbhit())
     tmp=getch();
     if(tmp=='q')
          return 0;
      if(tmp=='z')
         start=true;
      if(tmp=='x')
      {
        inter=0; 
        start=false;
      }
      if(tmp=='c')
        start=false;
      if(start)
          printf (" %d",inter++);
   Sleep(100);// чтобы не слишком торопилась можно выбросить 
 
 }
return 0;
}

 while (true) {
   if (!GetMessage (&msg,NULL,0,0))
     break;
  TranslateMessage (&msg);
  DispatchMessage  (&msg);
  
  //А тут вызов функции, которая проверяет глобальные флаги
  //которые устанавливаются кнопками пуск старт и пауза 
  //и в зависимости от них делает определённые действия.
  //Сделала- вернула управление.
  f (); 
}

/* main window message loop */
    while (1)
    {
        // if at a full screen console, don't update unless needed
        if (Minimized || (dedicated && dedicated->value) )
        {
            Sleep (1);
        }
 
        while (PeekMessage (&msg, NULL, 0, 0, PM_NOREMOVE))
        {
            if (!GetMessage (&msg, NULL, 0, 0))
                Com_Quit ();
            sys_msg_time = msg.time;
            TranslateMessage (&msg);
            DispatchMessage (&msg);
        }
 
        do
        {
            newtime = Sys_Milliseconds ();
            time = newtime - oldtime;
        } while (time < 1);
//          Con_Printf ("time:%5.2f - %5.2f = %5.2f\n", newtime, oldtime, time);
 
        //  _controlfp( ~( _EM_ZERODIVIDE /*| _EM_INVALID*/ ), _MCW_EM );
        _controlfp( _PC_24, _MCW_PC );
        Qcommon_Frame (time);
 
        oldtime = newtime;
    }

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <windows.h>
#include <math.h>
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
bool stop=0, start=1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
class TGraphicsThread: public TThread
{
private:
protected:
    void __fastcall Execute(void);
public:
    void __fastcall MyResume(void);
    __fastcall TGraphicsThread(bool Suspended);
    __fastcall ~TGraphicsThread();
};
__fastcall TGraphicsThread::TGraphicsThread(bool Suspended): TThread(Suspended)
{
    //<-- тут инициализируете ваши переменные
}
__fastcall TGraphicsThread::~TGraphicsThread()
{
    //<-- тут уничтожаете ваши переменные
}
void __fastcall TGraphicsThread::MyResume(void)
{
/*  int SuspendCount = ResumeThread(Handle);
  CheckThreadError(SuspendCount >= 0);
  if(SuspendCount = 1) Suspended = false;  */
}
 
void __fastcall TGraphicsThread::Execute(void)
{
    int i, H;
    stop=0;
    H = Form1->Height;
    HDC hDC = GetDC(Form1->Handle);
 
  for (i = 0; i > -1; i++) {
  if (stop==true) break;
  if (start==true) {
  MoveToEx(hDC, i%500,i%500, NULL);
  LineTo(hDC, i%500, H/2);
  TextOut(hDC, i%500, i%500, "Number of raster fonts: ", 24);
  }
    }
  }
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 TGraphicsThread *MyThread = new TGraphicsThread(true);
MyThread->Suspended = false;
MyThread->FreeOnTerminate = true;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
stop = 1;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
if (start==true)
{
start = false;}
else start = true;
 
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
Timer1->Enabled= false;
Timer1->Interval= 200;
}
//---------------------------------------------------------------------------
int i=0;
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    HDC hDC = GetDC(Handle);
 
    MoveToEx(hDC, i%500,i%500, NULL);
    LineTo(hDC, i%500, Height/2);
    TextOutA(hDC, i%500, i%500, "Number of raster fonts: ", 24);
 
    ReleaseDC(Handle,hDC); /* !!! */
 
    i++;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Enabled= !Timer1->Enabled;
}
//--------------------------------------------------------------------------