io ho provato così ma mi da errore

codice:
Query2.SQL.Text:='insert into visitatori (data) values('+DataToStr(data)+')';
Query2.ExecSQL;
aiuto