Delphi - Fragen!

[Expresseon]

Hi,
ich habe ein Problem. Wenn man in einem Delphiprogramm auf einen Button klickt, soll in ein Label etwas geschrieben werden.

Hier ein entsprechendes Abfragebeispiel:

Code:

if not (v1 = 10) then
 lbltext.Caption := text[v1];

Diese Abfrage soll jetzt solange wiederholt werden, bis v1 nicht 10 ist, dann soll etwas in das Label geschrieben werden. Ich habe dies so versucht, das Programm hing sich dann aber wegen dem Loop auf:

Code:

repeat until ok = 1; 
  begin 
   if not (v1 = 10) then
    lbltext.Caption := text[v1];
    ok := 1;
    break;
  end;

Der Zweck des Loops ist eben, dass man nicht solange auf den Button klicken muss, bis die Bedingung erfüllt ist, sondern dass solange weitergemacht wird, bis die Bedingung erfüllt ist. Danach wird der nächste Abfrageloop für ein anderes Label gestartet. Mit einem Button werden also mehrere Labels beschrieben.

Was muss ich machen, damit es klappt und sich das Programm nicht mehr aufhängt?

Danke im Vorraus!