TThread mystery since D6/D7

[Arno Garrels]

Hello,

When I run the code below in D7 as well as BDS2006 I get an EThread
exception with message "Invalid handle(6)". In D5 there was no problem
with the same code. Has anybody any idea why that happens?

Thanks,

Arno Garrels

var
AThread : TThread;

procedure TForm1.FormCreate(Sender: TObject);
begin
    AThread := TThread.Create(True);
    AThread.FreeOnTerminate := True;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
    AThread.Destroy;
end;
_______________________________________________
Delphi mailing list -> Delphi@elists.org
http://www.elists.org/mailman/listinfo/delphi