。。。。。。怎么样连续执行线程。。。。。。

我程序象这样写，
rocedure TForm1.Button5Click(Sender: TObject);
begin
    thred.sms_thread.Create(false);
    thred.sms_thread.Create(false);
end;
没以一点问题。可是改成：
rocedure TForm1.Button5Click(Sender: TObject);
begin
temp:=1;
while temp<2 do
begin
    thred.sms_thread.Create(false);
    temp:=temp+1;
end;
就运行出错，提示说：Access violation at a address 0000000 . read of a address 00000000之类的话！
我不懂！！哭ing！