请帮忙看看下面的程序?为什么报表中全部行的数据都一样,应怎么改?

请帮忙看看下面的程序错在那里?
procedure TMain_Form.N18Click(Sender: TObject);
begin
 CreateData(DataModule1.gszl,'select jg from jel',1);
 frVariables['gsxm']:=DataModule1.gszl.FieldValues['lp'];
 frVariables['zdr']:=CBTxt;
 with DataModule1.khzl do
  begin
   frVariables['xm']:=FieldValues['ps'];
   frVariables['xb']:=FieldValues['se'];
   frVariables['nl']:=FieldValues['fe'];
   frVariables['shj']:=FieldValues['fu'];
   frVariables['jtdh']:=FieldValues['uw'];
   frVariables['bgdh']:=FieldValues['qq'];
  end;
 khfR1.ShowReport;
end;