como sumar Dias a una fecha

[esimon]

mucha gracias Caro y Delphius, por dedicarme parte de tu apreciado tiempo.

Estoy haciendo un sistema para supervisar establecimientos, pero dentro de esa supervision a un establecimiento X, le puedo dar un plazo de 1o dias laborables para hacerle una numeva supervision para que corrijar algunos problemas que se encontraron en dicho establecimiento, claro estoy 10 dias son laborable, sin incluir los dias feriados, sabado ni domingos.

para que el sistema haga esa parte automaticamente, uso un Edtit en el cual digito la cantidad de dias y un DeteTimePicke, para que me muestre la fecha que le toma la supervision a dicho establecimiento y estoy usando el codigo que me envio caro.

var
 cont : Integer;
 Fecha : TDateTime;
begin
 Fecha := Now;
 cont := 1;
 While cont<=StrToInt(Edit1.Text) do
  begin
   Fecha := IncDay(Fecha, 1);
   if (DayOfTheWeek(Fecha)<>6) and (DayOfTheWeek(Fecha)<>7) then
    inc(cont);
  end;
 DateTimePicker1.Date := Fecha;

Con este codigo cuando yo le digo a un establecimeinto que tienex dia para la proxima inspeccion en el DateTimePicke me hace el calculo y me lo graba en la tabla, pero si entro a ese establecimiento el DateTimePicke me presenta la fecha actual y no la que le correposnde con el plazo establecido.