线程异常问题

procedure ThreadGetCMM.Execute;
begin
  try
    query:=Tquery.create(nil);
    Query.Close;
    query.sql.clear;
    query.sql.add('......');
    Query.ParamByName('empid').AsString:='1';
    Query.ParamByName('sYear').AsString:='1';
    tQuery.ParamByName('sMonth').AsString:='1';
    tQuery.Open;
  except
   ShowMessage('线程异常');
   query.free;
  endend;
客户请求时自动产生一个query来操作数据库