数据类型不匹配！ 在线等！！

Question

procedure TForm5.adoquery1beforeposst(DataSet: TDataSet);
begin
   form5.ADOQuery2.Close;
  form5.ADOQuery2.SQL.Clear;
  form5.ADOQuery2.Connection:=form5.ADOConnection1;
  form5.ADOQuery2.SQL.Add('select max(pfb.cj2)as cj3 from pfb ,tyks where pfb.tycj1<=:a and xbdm=1 ') ;
  form5.ADOQuery2 .Parameters.ParamByName('a').Value  :=StrToFloat( form5.ADOQuery1.FieldByName('cj').AsString)  ;
  form5.ADOQuery2.open;
  form5.ADOQuery1.FieldByName('df').AsFloat  :=form5.ADOQuery2.Fields[0].AsFloat     ;
end;access表：
              cj2  双精度型
　　　　　　　tycj1 双精度型
　          cj  双精度型
           df   字符型