почему ошибка выдадут ???

var
Ap,xl,sv,sm,podr1,podr2,C: Variant;// peremeni sv = пол жен sm = пол муж
i: integer;
f,j : TdateTime;
rc,p,q : Integer;
mypodra, sex : string;

db.AdsQueryStatistic.SQL.Text:=' SELECT podra, sum(case when sex=''Муж'' then 1 else 0) as men, ' +
' sum(case when sex=''Жен'' then 1 else 0) as women FROM roj ' +
' WHERE d_reg between :f and :j GROUP BY podra ORDER BY 1' ;
f := Trunc(DateTimePicker1.Date);
j := Trunc(DateTimePicker2.Date);
db.AdsQueryStatistic.Params.ParamByName('f').Value:= f;
db.AdsQueryStatistic.Params.ParamByName('j').Value:= j;
db.AdsQueryStatistic.Open;
row:=2;
while not db.AdsQueryStatistic.eof do
begin
srow:=Inttostr(row)
Ap.Range['a'+srow]:=db.AdsQueryStatistic.FieldByName('podr').value; // здесь ошибка почему что та не правильна написала ,???
Ap.Range['b'+srow]:=db.AdsQueryStatistic.FieldByName('men').value;
Ap.Range['c'+srow]:=db.AdsQueryStatistic.FieldByName('women').value;
db.AdsQueryStatistic.next;
inc(row);
end;
за ран спс