void ConsoleOut(bool Free, AnsiString s)
{
  static HANDLE hCon=INVALID_HANDLE_VALUE;
  if (hCon==INVALID_HANDLE_VALUE)
  {
    AllocConsole();
    hCon=CreateConsoleScreenBuffer(GENERIC_WRITE, 0 , 0 ,CONSOLE_TEXTMODE_BUFFER, 0 );
    COORD crd;
    crd.X= 2000 ;
    crd.Y= 2000 ;
    SetConsoleScreenBufferSize(hCon,crd);
    SMALL_RECT sr;
    sr.Left= 0 ;
    sr.Top= 0 ;
    sr.Right= 2000 ;
    sr.Bottom= 2000 ;
    SetConsoleWindowInfo(hCon, 1 ,&sr);
    SetConsoleActiveScreenBuffer(hCon);
  }

  if (hCon!=INVALID_HANDLE_VALUE)
  {
    DWORD N=s.Length();
    DWORD N1;
    char *cs=s.c_str();
    CharToOemBuff(cs,cs,strlen(cs));
    WriteConsole(hCon,cs,N,&N1, 0 );
  }
  if (Free)
  {
    CloseHandle(hCon);
    FreeConsole();
    hCon=INVALID_HANDLE_VALUE;
  }
}

ConsoleOut( 0 ,"старт проги ...");
ConsoleOut( 0 ,"тут начинаем цикл");
ConsoleOut( 0 ,"тут цикл закончен");
ConsoleOut( 0 ,"ну и так далее");