Endlos Thread - wie einbetten?

[Angel4585]

Zitat von jaikai:

Delphi-Quellcode:

procedure Execute;
begin
while not Terminated do
  begin
  synchronize(Laufschon);
  sleep(1);
  end;
end;

Das wars