Mehrere Bedingungen in EINER MessageBox abfangen / anhängen

[nahpets]

Hallo, wie wäre es mit

Delphi-Quellcode:

var s : string;
begin
  s := '';
...
  if TimeToStr(DateTimePicker_VON.Time) = '00:00:00' then begin 
     if TimeToStr(DateTimePicker_BIS.Time) = '00:00:00' then s := s + 'Bitte überprüfen Sie Start- und Endzeit!' + #13; 
  end 
  else if TimeToStr(DateTimePicker_BIS.Time) = '00:00:00' then s := s + 'Bitte überprüfen Sie die Endzeit!' + #13 
else if Trunc(DateTimePicker_DATUM.Date) = Date then begin 
  ... bei so'ner Entscheidung wird's wohl schwierig die Fragen so zu formulieren, dass mit dem Klick auf
      einen bestimmten Button im Programm entschieden werden kann, welcher oder welche Schritte weiter auszuführen sind.
  MessageBox(0, 'Soll als Datum das heutige Datum eingetragen werden? Wählen Sie NEIN um das Datum zu ändern!', 
                'Datumsbestätigung', MB_ICONWARNING or MB_YESNO) 
end;
... weitere Prüfungen ...
if s <> '' then begin
  MessageBox(0, PChar(s),'Da stimmt so Allerlei nicht...', MB_ICONWARNING or MB_YESNO) 
end;