Indy 10 UDP Aktualisieren

[STS301]

hi

Ich habe jetzt mit einer repeat Schleife versucht, nur es kommt nicht wirklich das gewünschte raus

Delphi-Quellcode:

repeat
  dec(time);
  if time = 0 then
   begin
    uclient.Broadcast(Computername, 10030);
    uclient.Broadcast(idipwatch1.CurrentIP, 10030);
    time:= 10;
  end;
  until
    time= 11; //das habe ich eingesetzt, weil er umbedingt eine until Anweisung wollte, ich denke, es hat aber nichts mit dem eigentlich Problem zu tun

wenn ich das Programm auf R1 und dann R2 starte hängen sich beide auf.

Time ist im OnCreate auf 10 gesetzt worden.