TDateTime Problem

[Marcel2906]

Hey Leute, ich bins mal wieder.
Ich suche ungefährt so einen code:

Code:

If Abfahrt.Text < Ankunft.text then Abfahrt 1 Tag später

Und dann soll es im Array eingetragen werden...
Also mein 2. Problem wenn ich den Code dann habe, wo genau muss ich den einfügen, hier mein Code:

Code:

procedure TForm1.Add;
   var
   rec_p : PBusEintrag;

   begin
      rec_p := Nil; // Init mit nichts
      new (rec_p);
      if Verspätung.Text = '' then Verspätung.Text:= '0';
      //neuen Eintrag in Array eintragen
      rec_p^.Linie:=Linie.Text;
      rec_p^.Ziel:=Ziel.Text;
      rec_p^.Ankunft:=StrToDateTime(Ankunft.Text);
      rec_p^.Abfahrt:=StrToDateTime(Abfahrt.Text);
      rec_p^.Verspätung:=StrToDateTime(Verspätung.Text);
      SetLength(Liste, (length(Liste)+1));
      Liste[high(Liste)]:= rec_p;
   end;