与类型有关的问题

//界面控件获取数据
procedure TForm1.GetIPData(pVC_IPADDR,pINT_EQUNO,pINT_STATUS,pINT_TYPE, pVC_MEMO:string);
begin
    FlatComboBox_VC_IPADDR.text:=pVC_IPADDR;
    FlatEdit_INT_EQUNO.text:=pINT_EQUNO;
    FlatComboBox_INT_STATUS.text:=pINT_STATUS;
    FlatComboBox_INT_TYPE.text:=pINT_TYPE;
    FlatMemo_VC_MEMO.text:=pVC_MEMO;
end;procedure TForm1.GetIPLog(pINT_MID,pDT_DateTime_BGE,pDT_DateTime_END, pVC_MEMO:string);
begin
    FlatEdit_INT_MID.text:=pINT_MID;
    DateTimePicker_DT_DATETIME_BGE.date:=strtodate(pDT_DateTime_BGE);
    DateTimePicker_DT_DATETIME_END.date:=strtodate(pDT_DateTime_END);
    FlatMemo_VC_LOG.text:=pVC_MEMO;
end;
//取消
procedure TForm1.FlatSpeedButton_CancelClick(Sender: TObject);
begin
   GetIPData('','','','','');
   GetIPLog('','','','');    //为何这个老提示错误'''is not a valid date'
    ButtonStatus(true);
end;//GetIPLog('','','','');    //为何这个老提示错误'''is not a valid date'
真不知道要怎么样改？
请帮忙！