这代码没看出问题来，大家看出来要怎么修改么？

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;
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;
end;朋友说他这段代码老是提示 “参数a没有默认值”，然后出错提示停在蓝色SeekPc那一行代码，他说只是在其中一个comboBox的items中输入了a，其他地方就没有了，在seekPc前面的代码都能正常运行的，大家认为出错在哪里了？？

Answer 1

我跑去delphi吧问过。那些人让我跑来VB问。。