Neusten Termin aus ListView

[Yheeky]

Ich bin noch am verzweifeln...heute morgen habe mein Programm aufgerufen und was sehe ich da...es wird wieder falsch dargestellt. Ich kann´s mir nicht erklären. Vor Ratlosigkeit habe ich die ganze Procedure nochmal gelöscht und neu angefangen. Bisher habe ich folgendes:

Code:

var I : Integer;
    NeustesDatum : String;

...

for I := 0 to SmartListView1.Items.Count-1 do
   begin
   if (StrToDate(SmartListView1.Items[I].SubItems[1])) = Date then
      begin
      NeustesDatum := SmartListView1.Items[I].SubItems[1];

      // Nach Zeit suchen

      Edit1.Text :=  NeustesDatum;
      Exit;
      end
   else
...

Das funktioniert einwandfrei, wenn der Termin das heutige Datum hat, wird das als neuster Termin angezeigt (und die Procedure wird beendet). Aber nun möchte ich herausfinden, welcher Termin der neuste ist, wenn er nicht das heutige Datum besitzt. Wäre nett, wenn mir jemand helfen könnte.

Danke schonmal!

Gruß Yheeky