Objekte nach Datum Sortieren

[freak4fun]

Ich habe eine Klasse TTerminKalender mit einer ObjectList, die Elemente meiner Klasse TTermin enthält. Nun möchte ich die Objekte in dewr ObjectList nach dem Datem (Eigenschaft von TTermin) sortieren. So geht es, aber geht es besser?

Delphi-Quellcode:

procedure TTerminKalender.Sort;
var
  i, j: Integer;
begin
  for i := 0 to FTerminListe.Count - 2 do
    for j := i + 1 to FTerminListe.Count - 1 do
      if TimeToStr(TTermin(FTerminListe.Items[i]).Time) > TimeToStr(TTermin(FTerminListe.Items[j]).Time) then
        Tausche(TTermin(FTerminListe.Items[i]), TTermin(FTerminListe.Items[j]));
end;

procedure TTerminKalender.Tausche(AOne, ATwo: TTermin);
var
  lTemp: TTermin;
begin
  lTemp := TTermin.Create(0, 0,'');
  try
    lTemp.Time := AOne.Time;
    lTemp.Text := AOne.Text;

    AOne.Time := ATwo.Time;
    AOne.Text := ATwo.Text;

    ATwo.Time := lTemp.Time;
    ATwo.Text := lTemp.Text;

  finally
    lTemp.Free;
  end;
end;