thread fehler: coInitialize wurde nicht aufgerufen ?

[agm65]

diesen fehler bekomme ich, wenn ich mein thread starte ? woran kann das liegen ?

Delphi-Quellcode:

var
 id1:longword;

Procedure test(Parameter : Pointer);
begin
showmessage('mein thread');
end;

BeginThread(nil, 0, Addr(test), nil, 0, id1);