Checkbox nicht mehr erreichbar.

[haderlump]

Hallo zusammen
zu Messzwecken möchte ich ein serielles Signal erzeugen.
Gestartet wird es durch setzen eines Hakens in einer checkbox. Das geht auch.
Hier der zugehörige Code.

Code: Alles auswählen

procedure TFehlermeldungen.testClick(Sender: TObject);
var byte1,byte2,byte3,byte4:byte;
begin
  while test.Checked do
  begin
       byte1 := 10;
        byte2 :=10;
        byte3 :=10;
        byte4 :=10;
        serialSend(byte1,byte2,byte3,byte4);

  end;
end;   

Jetzt möchte ich das Ganze auch wieder ausschalten, indem ich den Haken lösche. Leider geht das nicht, wahrscheinlich komme ich aus der Schleife nicht mehr raus.
Und es wird der Haken gar nicht mehr verändert.
Was mache ich da falsch?

Gruß Fritz

[Mathias]

wahrscheinlich komme ich aus der Schleife nicht mehr raus.

Genau so ist es.

Code: Alles auswählen

       serialSend(byte1,byte2,byte3,byte4);
       Application.ProcessMessages; 

Evtl. hilft dies weiter.

[haderlump]

Danke, das hat geklappt.