过程调用的问题,急

                            
我声明了一个私有的过程如下:   
   
  Procedure   TfrmCustOrder.edtCustIDCodeExit(Sender:TObject);  
  const  
      cSqlCustom='select   *   from   Customer   where   rtrim(CustID)=''%s''   and   rtrim(Code)=''%s''';  
  var  
      sCustID,sCode:String;  
  begin  
      sCustID:=Trim(edtCustID.Text);  
      sCode:=Trim(edtCode.Text);  
      if   (sCustID<>'')   and   (sCode<>'')   then  
      begin  
          with   dataGoodsOrder   do  
              begin  
                  qryCustomer.Sql.text:=Format(cSqlCustom,[sCustID,sCode]);  
                  qryCustomer.Open;  
                  if   not   qryCustomer.IsEmpty()   then  
                      begin  
                          IsOldCustomer:=True;  
                          edtCustName.Text:=qryCustomer.fieldbyname('CustName').AsString;  
                          rdoSexMale.Checked:=qryCustomer.FieldByName('Sex').AsString='M';  
                          rdoSexFemale.Checked:=qryCustomer.FieldByName('Sex').AsString='F';  
                          edtTel.Text:=qryCustomer.fieldbyname('Tel').AsString;  
                          edtZip.Text:=qryCustomer.fieldbyname('Zip').AsString;  
                          edtAddress.Text:=qryCustomer.fieldbyname('Address').AsString;  
                      end  
                  else  
                      begin  
                          IsOldCustomer:=False;  
                          ShowMessage('顾客号和顾客身份证不符,该顾客是新顾客!');  
                          uspTmp.Parameters.Clear;  
                          uspTmp.ProcedureName:='usp_GetNewCustID';  
                          uspTmp.Parameters.CreateParameter('DataStr',ftString,pdInput,8,formatDateTime('YYYYMMDD',Today));  
                          uspTmp.Parameters.CreateParameter('CustID',ftString,pdOutPut,11,'');  
                          uspTmp.ExecProc;  
                          sCustID:=uspTmp.Parameters.parambyname('CustID').Value;  
                          edtCustID.Text:=sCustID;  
                      end;  
              end;  
      end;  
  在Form中有个消息响应如下:  
   
  procedure   TfrmCustOrder.edtCodeExit(Sender:   TObject);  
  begin  
      frmCustOrder.edtCustIDCodeExit(self.edtCustID.Parent);  
  end;  
   
  我利用调试的Watch追踪edtCustID.Text的值发现到frmCustOrder.edtCustIDCodeExit(self.edtCustID.Parent);中的  
   
  sCustID:=Trim(edtCustID.Text);就有问题了,提示是edtCustID没有定义,可是在过程外的值都是对的,一进过程就不对了,是不是我在消息响应的过程中的参数写的不对?

查看回复