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