我要疯了诶!!!!!!!!!!怎么没人回答?我跳楼拉(5分)

编译通过.运行没有响应,跟我上个问题差不多,怎么没有人给我回答啊?
到底下面哪里有问题啊.运行环境:delphi6/winxp
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Panel1: TPanel;
Button1: TButton;
Bevel1: TBevel;
Memo1: TMemo;
StaticText1: TStaticText;
Edit1: TEdit;
StaticText2: TStaticText;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
var
temp:string;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
host:string;
size:integer;
f:file of byte;

begin
memo1.Lines.Clear;
if fileexists(temp)then
deletefile(temp);
host:=edit1.Text;
winexec(pchar('command.com/c net view//'+host+'>'+temp),sw_hide);
while not fileexists(temp) do
sleep(3000);
try
assignfile(f,temp);
reset(f);
finally
closefile(f);
end;
if size=0 then
begin
showmessage(edit1.Text+'目前没有上网!');
exit;
end
else
try
memo1.Lines.LoadFromFile(temp);
except
end;
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
memo1.Lines.Clear;
temp:='c:/resource.txt';

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if fileexists(temp)then
deletefile(temp);
end;

end.

??给出编译错误信息，你给的分这么少，也不要叫了！

跳吧，跳下去你就和蓝天融为一体了，跳啊！你倒是跳啊!你到底跳部跳了！

自己跟踪看看，肯定会出来的。。。

while not fileexists(temp) do
sleep(3000);
可能引起死循环

接受答案了.