Pauza W Pętli Bcb 6.0

[Dziolo]

Witam

Mam takie pytanko, jak mogę zatrzymać petlę a potem za pomocą klawisza dalej kazać jej działać oczywiście żeby nie zaczynała od nowa chodzić tylko od momentu gdzie się zatrzymała.

Sprawdzałem już funkcje getch(); cin, gets, jednak nie działają, działa mi tylko funkcja system("PAUSE"); ale nie chce aby mi się wyświetlało okienko z komunikatem "Naciśnij dowolny ";

 

Kod

 

void __fastcall TForm1::Button1Click(TObject *Sender)

{

for(int i=0;i<10;i++)

{Form1->ListBox1->Items->Add(IntToStr(i));

getchar();

}

}

 

Z góry wielkie dzięki