Erro ao Inserir data no BD

qryInserir.Close;
qryInserir.SQL.Clear;
qryInserir.SQL.Add('Insert into cadhistoricomensagem '+
                   '(mensagem,data,hora,codfunc,qtd)');
qryInserir.SQL.Add('values ('+#39+ Memo1.Text+#39+','  +
                              #39 + DateToStr(Date) + #39 +',' +
                              #39 + TimeToStr(Time)  + #39+',' +
                              #39 + '1' + #39 +','    +
                              #39 + '1' +#39+')');
qryInserir.ExecSQL;

Incorrect date value: '17/03/2013' for column 'data' at row 1