十万火急：求救！

Question

说明：StrSql[][2]是二维数组,是SQL语句，其余变量就没有说明。
每次测试总在 while 后面的 begin 出错:
[Error] MyDDD.pas(285): Missing operator or semicolon
觉得好奇怪，特请教各位，非常感谢！    ADOConn.Open;
    if ADOConn.Connected then
    begin
       for i := 0 to 5 do
       begin
             ADOQuery_MY.Close;
             ADOQuery_MY.SQL.Clear;
             ADOQuery_MY.SQL.Add(StrSql[i][2]);
             try
                ADOQuery_MY.open;
                ADOQuery_MY.First;
                while not ADOQuery_MY.Eof
                   begin
                     AreaTotal := AreaTotal + ADOQuery_MY.FieldByName('name').AsString + ',' + ADOQuery_MY.FieldByName('num').AsString;
                     ADOQuery_MY.Next;
                   end;
             except on E:Exception do
                showmessage(E.Message);
             end;
       end;
    end;

Answer 1

while not ADOQuery_MY.Eof
应该是
while not ADOQuery_MY.Eof do

Answer 2

真都马虎了，多谢！我也觉得效率比较低，不过这个是我第一个DELPHI小程序，要不了多久就可以进步提高软件效率。多谢两位！