多线程菜鸟问题(100分)

program Project1;
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
mythread = class(TThread)
private
{ Private declarations }

protected
procedure Execute;
override;
public
constructor create(pointer);
end;


constructor mythread.create(pointer);
begin
inherited create(false);
end;

procedure mythread.Execute;
begin
showmessage('test');
end;

var
mythread1:mythread;
begin
mythread1:=mythread.create(nil);
showmessage('jdf');{我把这句去掉，运行就出错 }
end.

why??????????????

那不是出错，是因为你没有主线程，所以在创建了线程后就立即退出了。