Rückgabedatum in Delphi 7

[coocky]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var i   : integer;
    alt : TDateTime;
    Ueberschritten : Boolean;

if FileExists ('Bücherliste3.txt')                                      // siehe oben
    then ListBox3.Items.LoadFromFile('Bücherliste3.txt');                 // siehe oben
  for i := 0 to ListBox3.Items.Count-1 do begin                           // überprüfen der ListBox von Anfang bis Ende
    alt := StrToDateTimeDef(ListBox3.Items.Strings[i], 0);                // altes Datum egibt sich aus dem Datum der ListBox3
    Ueberschritten:=alt<Now                                               // wenn altes Datum kleiner als aktuelles, dann ergibt sich Überschritten aus true
  end;
  if Ueberschritten Then ShowMessage('Ausleihdatum überschritten');  // wenn sich Überschritten aus true ergibt, dann wird Message ausgegeben
end;

Wir haben deine Ideen mit eingefügt, jedoch wird die message trotzdem ausgegeben, auch wenn das Datum nicht überschritten ist.
Die letzte Zeile konnten wir nicht übernehemen, da dann ein Fehler entstehet und das Programm abstürzt.

MfG