help!为什么我下面的代码运行结束后，按Ctrl+Alt+Del后老是看到它的程序名，好像还在运行中？(50分)

procedure TForm1.Button1Click(Sender: TObject);
var
adoconnection:Tadoconnection;
adoquery:Tadoquery;
mylist:Tstrings;
i:integer;
begin
ADOConnection := TADOConnection.Create(nil);
ADOConnection.LoginPrompt := False;
ADOConnection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=' + FileN + ';Extended Properties=Excel 8.0';
ADOQuery := TADOQuery.Create(nil);
mylist:=Tstringlist.create;
queryds.dataset:=adoquery;
dbgrid1.DataSource:=queryds;
ADOQuery.Connection := ADOConnection;
ADOConnection.GetTableNames(mylist, false);
for i:=0 to mylist.count-1 do
begin
adoquery.close;
adoquery.SQL.clear;
ADOQuery.SQL.Text := 'Select * from [' + mylist + ']';
ADOQuery.Open;
showmessage(mylist);
end;
ADOQuery.Close;
ADOConnection.Close;
ADOQuery.Free;
ADOConnection.Free;
mylist.free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.close;
end;

正常现象，你想让他显什么？

怎么会正常呢？我程序结束后，按ctrl+alt+del应该看不到它的.再说我要重新编译这代码时
会出现“can't creat output xxxx”的提示。