wie auf bestimmte zeit reagieren??

[DeddyH]

Für diese Lösung brauchst Du aber wieder SysUtils (ich war zu faul zum Rechnen ):

Delphi-Quellcode:

var SysTime: TSystemTime;
    dtTime: TDateTime;
    Tag: string;
begin
  GetSystemTime(SysTime);
  dtTime := SystemTimeToDateTime(SysTime);
  dtTime := dtTime + 1;
  DateTimeToSystemTime(dtTime,SysTime);
  case SysTime.wDayOfWeek of
    0: Tag := 'Sonntag';
    1: Tag := 'Montag';
    2: Tag := 'Dienstag';
    3: Tag := 'Mittwoch';
    4: Tag := 'Donnerstag';
    5: Tag := 'Freitag';
    6: Tag := 'Samstag';
  end;
  ShowMessage('Morgen ist ' + Tag);
end;

[edit] Viel zu kompliziert gedacht

Delphi-Quellcode:

function WhichDayOfWeek(st: TSystemTime; const DaysToAdd: Integer): string;
begin
  st.wDayOfWeek := (st.wDayOfWeek + DaysToAdd) mod 7;
  case st.wDayOfWeek of
    0: Result := 'Sonntag';
    1: Result := 'Montag';
    2: Result := 'Dienstag';
    3: Result := 'Mittwoch';
    4: Result := 'Donnerstag';
    5: Result := 'Freitag';
    6: Result := 'Samstag';
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var SysTime: TSystemTime;
begin
  GetSystemTime(SysTime);
  ShowMessage(Format('Morgen ist %s',[WhichDayOfWeek(SysTime,1)]));
end;

[/edit]