schleife will einfach nicht.

[Fussball-Robby]

ohne i ist es aber viel einfacher, du machst

Delphi-Quellcode:

procedure SchleifenThread.Execute;
begin
while not terminated do
  begin
     Synchronize(UpdatePing);
     sleep(2000);
     Synchronize(UpdatePong);
     sleep(2000);
  end;
end;

Und rufst dann beim Button  SchleifenThread.Terminate; auf