Problema con Código y Guardar en base de datos

[DiegoPucho]

hice traducción del else mal... es sino...
ya solucione el 1° así:

Código Delphi [-]
if Trim(ComboBoxProveedor.Text) = '' then
    begin
     FrmModArt.QProductos.FieldByName('idProveedor').Value := NULL;
    end
else
    begin
     FrmModArt.QProductos.FieldByName('idProveedor').Text:= ComboBoxProveedor.KeyValue;
    end;

Pero no lo consigo con el 2° lo hice igual y nada...