Var
  iDays: integer
  dFutureDate: TDateTime;

Begin
  //Anz. Tage die add werden sollen
  iDays:=strtoint(Form1.Edit1.Text);

  //Datumsformat festlegen
  ShortDateFormat:= 'dd.mm.yyyy';
  DateSeparator:= '.';

  //sValueDate liegt im Format dd.mm.yyyy als String vor
  dFutureDate:=strtodatetime(sValue1Date);

  //solange iDays aufaddieren bis dFutureDay>HeutigerTag
  repeat IncDay(dFutureDate, iDays);
  until dFutureDate>now;

  //Ausgabe in ListBox1
  Form1.ListBox1.Items.Add(datetimetostr(dFutureDate));
End;