Logre solucionar el 2° Problema de la siguiente manera:
Código Delphi
[-]if sDateEdit1.Text = (' / / ') then
begin
FrmModArt.QProductos.FieldByName('FechaCompra').Value := NULL;
end
else
begin
FrmModArt.QProductos.FieldByName('FechaCompra').Text:= sDateEdit1.Text;
end;
Espero que a alguien le sirva...
![Big Grin](http://www.clubdelphi.com/foros/images/smilies/biggrin.gif)