Вот так все заработало
...
var data,day,mon,year :string
...
data:=10.09.2007
day:=copy(data,1,2)
mon:=copy(data,4,2)
year:=copy(data,7,4)
QAA.close;
QAA.sql.clear;
QAA.sql.add('insert into j_v_un (Day,Mon,Year) values');
QAA.sql.add('(
rm1, :Prm2, :Prm3
;');
QAA.Parameters.ParamByName('Prm1').asstring:=day;
QAA.Parameters.ParamByName('Prm2').asstring:=mon;
QAA.Parameters.ParamByName('Prm3').asstring:=year;
QAA.ExecSQL;