ff (BAcceso.Connected)then
begin
QAcceso.Database:=BAcceso;
QAcceso.Transaction:=TAcceso;
QAcceso.SQL.Text:='insert into UNO(FECHA) values('+QuotedStr(FormatDateTime('mm/dd/yyyy',DateTimePicker1.Date))+')';
QAcceso.ExecSQL;
ShowMessage('Informacion grabada satisfactoriamente');
end;