数据合并的问题

问题：
我的数据库如下：
卡号     日期     数据总条数     顺序号    数据
133**  06-09-13      3             0      12345
133**  06-09-13      3             1      23412
133**  06-09-13      3             2      23453
133**  06-09-12      4             0      76534
133**  06-09-12      4             1      53412
133**  06-09-12      4             2      57453
133**  06-09-12      4             3      82353
我想把每一天的数据合成一条，我的代码如下：
procedure TForm1.Button5Click(Sender: TObject);
var
  card,date,str1:string;
  str:array[1..10]of string;
  i,k:integer;
begin
  card := form1.DBEdit1.Text;
  date := form1.DBEdit2.Text;  form1.ADOQuery1.Close;
  form1.ADOQuery1.SQL.Clear;
  form1.ADOQuery1.SQL.Add('select * from 工图 where 卡号 = "'+ card +'" and 日期="'+ date +'"');
  form1.ADOQuery1.Open;
  k := form1.ADOQuery1.FieldValues['总数'];  for i := 0 to k-1 do
    begin
    form1.ADOQuery1.Close;
    form1.ADOQuery1.SQL.Clear;
    form1.ADOQuery1.SQL.Add('select * from 工图 where 卡号 = "'+ card +'" and 日期="'+
date +'" and 顺序 =i ');
    form1.ADOQuery1.Open;
    str[i] := form1.ADOQuery1.FieldValues['data'];
    end;
end;
大家帮忙看一下我的代码，有什么问题吗？为什么我运行的时候没有错误，而我在点击button5的时候他会弹出一个错误提示说i参数没有默认值，这是怎么回事呢？还有啊，如果没初错误的话我写的这段代码只是把一天里的每一条数据提取出来赋给str[i]了，现在我要把这几条str[i]合成一条str1，那么这句合成的语句该怎么写呢？加在代码的哪一个地方呢？谢谢了!!!