1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

procedure TForm1.Button1Click(Sender: TObject);
var
  date1, date2: TDate;
  iDayCount, iDayCount2, iWorkDays, iRest: Integer;
begin
  // ich hab es am beispiel von heute getestet und es geht... (heute do, 14.12.2006, in 17 tagen ist so, 31.12.2006 - ahh, cool party!)
  // sicher, es gibt da bestimmt noch ungünstige wochenendkonstellationen,
  // aber daran kann ja weitergebastelt werden...

  date1 := TDate(Now);  // beliebige datumswerte hier eingeben... (z.B. aus TEdit, DatePicker etc.)
  date2 := TDate(Now)+17;  // beliebige datumswerte hier eingeben... (z.B. aus TEdit, DatePicker etc.)

  iDayCount := round(date2-date1);

  if iDayCount < 0 then iDayCount := iDayCount * (-1);  // Betrag

  iRest := iDayCount mod 7;

  if iRest <> 0 then iDayCount2 := iDayCount - iRest
  else iDayCount2 := iDayCount;

  iWorkDays := round(iDayCount2 / 7);

  iWorkDays := iWorkDays * 5 + 1;  // + 1, dann zählt der heutige tag noch mit...

  ShowMessage(IntToStr(iWorkDays));
end;