Ich weiß nicht welchen produktiven Sinn es haben sollen in einer Schleife beliebig oft Net Send Nachrichten zu verschicken !?!?
Generell müsste es so gehen:
Delphi-Quellcode:
var
test : Boolean;
//Jetzt die Schleife bei klick auf Button1
procedure form1.Button2click(Sender : TObject);
begin
repeat
//Dein Net Send Zeug
until test = true;
end;
//Jetzt bei Klick auf Button2 wirds abgebrochen
procedure form1.Button2click(Sender : TObject);
begin
test := true;
end
Trotzdem weiß ich nicht welchen Sinn dein Programm haben soll.
//Edit: Kleine Veränderung
P.S.: Nicht getestet