Threads, welche Lösung haltet Ihr für eleganter ?

[DataCool]

Hi,

ich habe einen Thread, der alle 250 Millisekunden etwas machen sollen.
Jetzt bieten sich mir 2 Möglichkeiten das ganze zu realisieren :

Möglichkeit 1:

Delphi-Quellcode:

  While not terminated do begin
    // do some work
    // sleep(250);
  end;

Möglichkeit 2:

Delphi-Quellcode:

Var bExit  : Boolean;
    wRes   : Word;
begin
  bExit := false;
  repeat
    wRes := WaitForSingleObject(hCloseEvent,250);
    if wRes = WAIT_OBJECT_0 + 0 then
      bExit := true
    else
      doSomeWork;
  until (bExit) or (terminated);
end;

Welche Möglichkeit würdet Ihr bevorzugen und warum ?

Danke und Gruß

Data