请高手帮忙，如何把DATE转STRING。(10分)

请高手帮忙，如何把DATE转STRING。
在编译时发生错误。请高手指点。谢谢。
procedure Twms_jhd.BitBtn1Click(Sender: TObject);
var
b1,b2:string;
begin
b1:=DateTimePicker1.Date;//起始时间
b2:=DateTimePicker2.Date;//截止时间
fm_data.CD_jhd_top.Close;
fm_data.CD_jhd_top.CommandText:='select jhbh,rq,gy_bh,gy_name from wwl_jhd_top where rq<='+''''+b1+''''+' and rq>='+''''+b2+'''';
fm_data.CD_jhd_top.Open;
end;

procedure Twms_jhd.BitBtn1Click(Sender: TObject);
var
b1,b2:string;
begin
b1:=datetostr(DateTimePicker1.Date);//起始时间
b2:=datetistr(DateTimePicker2.Date);//截止时间
fm_data.CD_jhd_top.Close;
fm_data.CD_jhd_top.CommandText:='select jhbh,rq,gy_bh,gy_name from wwl_jhd_top where rq<='+''''+b1+''''+' and rq>='+''''+b2+'''';
fm_data.CD_jhd_top.Open;
end;

给你分，谢谢