各位先進大家好 我是剛剛從VB6轉到 Delphi XE2的新手
最近遇到一個問題想請教一下,程式流程如下:
1.我開一個VCL專案.
2.並寫一個連線到ORACLE簡單的程式,然後在debug模式下執行並按下btnLogin按鈕(程式碼如下).
2.然後就離開程式.
3.但是程式卻是無法完全結束.

我有查看了一下 Thread status 是程式的主THREAD ID未結束: 
顯示為 Thread ID  5336 Runnable

我有上網查了很久一直找不到答案,請不吝指正.
先謝謝各位了.

procedure TfrmMain.btnLoginClick(Sender: TObject);
var
  tms: string;
  QrsOrcl:Tadoquery;
  tmch: PWideChar;
  tmWs: widestring;
begin
  //WriteOut;
  userName := edtUserID.Text;
  pwd := edtPwd.Text;
  QrsOrcl := TADOQuery.Create(nil);

  tms := 'Provider=MSDAORA.1;USER ID=' + userName;
  tms := tms + ';PASSWORD=' + pwd;
  tms := tms + ';Data Source=test10gex';
  //
  try
    QrsOrcl.ConnectionString := tms;
    QrsOrcl.sql.Clear;
    QrsOrcl.sql.add('select * from p52_sp where job_no=''x''');
    QrsOrcl.close;
    QrsOrcl.Open;
   
    frmMain.Caption := '系統.... 已連線'
  //
  except
     on E: Exception do
     frmMain.Caption := '系統.... 未連線';
  end;
  QrsOrcl.close;
  QrsOrcl.free;
end;