CoInitialize has not been called

Jeg har i lang tid kørt med et program uden problemer, men nu melder den fejl når jeg skal til at køre det.

Fejl:
CoInitialize has not been called

Fejlen opstår i denne:
procedure TMainForm.ThreadMessage(var aMsg: TMessage);
var
  m, s: integer;
begin
  // Paranteser for en sikkerheds skyld. Multiplicér er stærkere end div og mod
  m := aMsg.WParam div (SecsPerMin * MSecsPerSec);
  s := (aMsg.WParam mod (SecsPerMin * MSecsPerSec)) div MSecsPerSec;
//  lStatus.Caption := format('Næste opdatering om %d:%0.2d',[m,s]);

  pbStatus.Min := 0;
  pbStatus.Max := aMsg.LParam;

  pbStatus.Position := aMsg.LParam - aMsg.WParam;
  Application.ProcessMessages; <------------- LIGE HER FÅR JEG FEJLEN.
end;