Pause in if.. else.. Verzweigung

[Sir Rufo]

Delphi-Quellcode:

if 
  StrToDateDef( DateBeginSucheEdit.text, 0 ) - StrToDateDef( DateBeginSucheEdit.text, 0 ) <= 10
then
  begin
    
    // Hier führen wir jetzt mal alles aus, weil die Eingaben sind in Ordnung

  end
else
  begin
    ShowMessage( 'Die Eingaben sind Quatsch! Bitte Wiederholen!' );
  end;

Keine Schleife, kein Exit, keine Klimmzüge und überschaubarer.