TThread-Execute wird nicht ausgefürhrt warum ?

[mimi]

ok:

Delphi-Quellcode:

{
  Fürht immer die funktion CheckPlay aus
  date    : 28.07.2004
  upDatet : 28.07.2004
}

procedure TSound.onE;
begin
  CheckPlay;
end;

Delphi-Quellcode:

{
  Schaut nach ob die musik zu ende ist oder nicht
  date    : 28.07.2004
  upDatet : 28.07.2004
}

procedure TSound.CheckPlay;
begin

  if (PlayMusikIndex > -1) and (isRandom = False)  then begin

    if (Musik[PlayMusikIndex].Module <> NIL) and (FMUSIC_IsFinished(Musik[PlayMusikIndex].Module) = True) then
      randomMusik;

    if (Musik[PlayMusikIndex].Stream <> NIL) and ( FSOUND_IsPlaying(Musik[PlayMusikIndex].Channel) = False) then
      randomMusik;
  end;

end;