problema al recorrer un campo de tipo fecha

[marcos_0586]

hola gente del foro, quisiera que vean este codigo porque la verdad es que es algo simple, o eso pensaba,yo tengo una tabla con los campos Fecha_pedido,Fecha_entrega,Fecha_entrega_real y Demorado
lo que nesecito hacer es listar aquellos pedidos que no tienen fecha_entrega_real osea que este campo esta vacio y que si la fecha_entrega supera a la fecha actual me agregue la palabra "SI" en el campo demorado, este es el codigo que use, la tabla se recorre pero no entra por el if de fecha=null

Código Delphi [-]
procedure TForm20.Button1Click(Sender: TObject); begin  form1.Table6.First;    
while not form1.Table6.Eof do     begin      
if (form1.table6.FieldByName('Fecha_entrega_real').AsDateTime=null and form1.table6.FieldByName('Fecha_entrega').AsDateTime>date) then       begin                 
  form1.table6.Edit;                 
  form1.table6.FieldByName('Demorado').AsString:='SI';                 
  form1.table6.Post;                 
  form1.table6.Next;            
end             
else                
  if form1.table6.FieldByName('Fecha_entrega').AsDateTime<=date() then                begin                 
    form1.table6.Edit;                  form1.table6.FieldByName('Demorado').AsString:='NO';                  
    form1.table6.Post;                  form1.table6.Next;                end;     end     else     
    form1.table6.Next;     
  end;  
end;

pd:lo intente con un query pero no me deja modificar el campo de la tabla
desde ya muchas gracias por su ayuda

[ecfisa]

Hola marcos.

Si no entiendo mal la lógica de tu planteo, el código sería:

Código Delphi [-]
procedure TForm20.Button1Click(Sender: TObject);
begin
  with Form1.Table6 do
  begin
    First;
    while not Eof do
    begin
      if(FieldByName('Fecha_entrega_real').AsDateTime = null) or
        (FieldByName('Fecha_entrega').AsDateTime > date) then
      begin
        Edit;
        FieldByName('Demorado').AsString:= 'SI';
        Post;
      end
      else
      begin
        Edit;
        FieldByName('Demorado').AsString:= 'NO';
        Post;
      end;
      Next;
    end
  end
end;

Saludos.

[ContraVeneno]

a caray... según yo, si la fecha de entrega es mayor a la fecha actual... eso está pendiente, pero no demorado...