Problem mit Thread in der Klasse

[Megamorph]

Ich versichere, es liegt nicht an den Messageboxen.

Delphi-Quellcode:

procedure TXxxxxxx.WorkThread;
begin
  while true do
  begin
    MessageBox(0,'1','',MB_OK);
    if bActive_ then begin end;
    MessageBox(0,'2','',MB_OK);
  end;
end;

--> Crash nachdem auf den OK-Button der 1. Messagebox gedrückt wurde

Delphi-Quellcode:

procedure TXxxxxxx.WorkThread;
begin
  while true do
  begin
    MessageBox(0,'1','',MB_OK);
  end;
end;

--> Nach bestätigen kommt immer wieder die selbe Messagebox, kein Crash

Delphi-Quellcode:

procedure TXxxxxxx.WorkThread;
begin
  while true do
  begin
    if bActive_ then begin end;
  end;
end;

--> sofortiger Crash

Hat noch jemand eine Idee?
Thx, Mega.