这代码没看出来问题，求教

Question

  ……  
procedure Button1Click(Sender: TObject);
procedure SeekPc;
  ……
procedure TFrm_CX.Button1Click(Sender: TObject);
var
  Str,KongGra,ZhouGra:string;
begin
  with data.AQ1 do
  begin
      close;
      Sql.Clear;
      Sql.Add('Select * from ITGCCC where size1<='+Edit1.text+' and size2>'+Edit1.text);
      open;
      Str:=data.AQ1.Fields[0].AsString; 
  end;
  with data.AQ2 do
  begin
      Close;
      Sql.Clear;
      Sql.Add('Select * from ITDJ where SID='+Str+' and DJ='+ComboBox2.Text);
      open;
      KongGra:=data.AQ2.Fields[3].AsString;
      Edit2.Text:=KongGra;
  end;
  with data.AQ3 do
  begin
      Close;
      Sql.Clear;
      Sql.Add('Select * from ITDJ where SID='+Str+' and DJ='+ComboBox4.Text);
      open;
      ZhouGra:=data.AQ3.Fields[3].AsString; 
      Edit3.Text:=ZhouGra;
  end;
  SeekPc;
end;procedure TFrm_CX.SeekPc;
var
 PcStr,ZhouSize,KongSize,DelStr:string;
begin
  with data.AQ1 do
  begin
      close;
      Sql.Clear;
      Sql.Add('Select * from GCCC where size1<='+Edit1.text+' and size2>'+Edit1.text);
      open;
      PcStr:=data.AQ1.Fields[0].AsString; 
  end;
  with data.AQ2 do
  begin
      Close;
      Sql.Clear;
      Sql.Add('Select * from PCCC where SID='+PcStr+' and ZM='+ComboBox3.Text);
      open;
      ZhouSize:=data.AQ2.Fields[3].AsString; 
      Edit4.Text:=ZhouSize;
  end;
  with data.AQ3 do
  begin
      Close;
      Sql.Clear;
      Sql.Add('Select * from PCCC where SID='+PcStr+' and ZM='+ComboBox1.Text);
      open;
      KongSize:=data.AQ3.Fields[3].AsString;
      DelStr:=data.AQ3.Fields[4].AsString;
      Edit5.Text:=KongSize;
  end;
end;朋友说他这段代码老是提示 “参数a没有默认值”，然后出错提示停在蓝色SeekPc那一行代码，他说只是在其中一个combox的items中有a，其他地方就没有了，在seekPc前面的代码都能正常运行的，大家认为出错在哪里了？？

Answer 1

我看着这代码运行应该没问题啊，他说就combox的items中有a，我在想是不是他 Sql.Add('Select * from PCCC where SID='+PcStr+' and ZM='+ComboBox3.Text)语句里头combobox这里出问题了。。