Schleife per Buttonklick unterbrechen

Hallo...
... Wie kann ich es machen, das eine Schleife auf Tastendruck stehen bleibt???
ein beispiel:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
while (stop = 0)
{
Memo1->Lines->Add(counter);
counter ++;
}
}

Und der andere Button zum stoppen:

void __fastcall TForm1::Button2Click(TObject *Sender)
{
stop = 1;
}

Aber das ganze Programm friert ein, wenn die schleife läuft!!!
Deshalb kann ich noch nichtmal auf den stop Button klicken!
Kann ich das einfrieren irgendwie umgehen oder verhindern???

akari

Hallo

such mal im Forum nach ProcessMessages

bis bald
akari

Genau das habe ich gesucht Danke!

Jansen

Und nächstes Mal zuerst in die FAQ sehen!