Events in einem Thread

[wicht]

Delphi-Quellcode:

procedure TMeinthread.Execute;
var
  i: Integer;
begin
  i := 0;
  while not  Terminated do
  begin
    // irgendwas
    if i = 5 then
    begin
      // noch irgendwas
      i := 0;
    end;
    Sleep(100);
    Inc(i);
  end;
end;