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...