o aplicativo está usando um valor incorreto para a operação atual dando erro quando passo o valor de datetime

''''''''o aplicativo está usando um valor incorreto para a operação atual ''''''''

close;
clear;
add(''''INSERT INTO [DMPACESSO_V100].[dbo].[VISITAS] (VISI_NUMERO,EST_NUMERO,VITA_CONTATO,'''');
add(''''VITA_DATA,VITA_OBS,VITA_BLOQUEADO,CRED_NUMERO,micromap)'''');
add(''''VALUES (:VISI_NUMERO,:EST_NUMERO,:VITA_CONTATO'''');
add('''':VITA_DATA,:VITA_OBS,:VITA_BLOQUEADO,:COD_Micromap)'''');

Parameters.ParamByName(''''VISI_NUMERO'''').Value := DBEdit_CodVisitante.Text;

with dm.IB_Auxiliar,sql do
begin
close;
clear;
add(''''SELECT * FROM FUNCIONARIOS WHERE NOME =:wNOME'''');
ParamByName(''''wNOME'''').Value := Nome_Funcionario.Text;
open;
end;

Parameters.ParamByName(''''EST_NUMERO'''').Value := dm.IB_Auxiliar.FieldByName(''''cod_departamento'''').AsString;
Parameters.ParamByName(''''VITA_CONTATO'''').Value := Nome_Funcionario.Text;
// Sdata := (Copy(MaskEdit1.Text,7,4)) + ''''-'''' + (Copy(MaskEdit1.Text,4,2))+ ''''-'''' + (Copy(MaskEdit1.Text,1,2));
Sdata := MaskEdit1.Text + '''' '''' + (Copy(MaskEdit2.Text,1,5));

dm.ADO_Auxiliar.Parameters.ParamByName(''''VITA_DATA'''').Value := (StrToDateTime(Sdata));
Está parando nessa linha o que pode ser ?