Auslesen von Daten / Rechnung mit Datum

[ironman139]

Abend zusammen,

Ich programmier schon länger an einer Auftragsverwaltungssoftware für unseren Betrieb.
Funktioniert eigentlich recht gut.
In einer SQL Datenbank werden diverse Infos zu jedem Auftrag gespeichert (AuftragsID, Auftraggeber, Fall, Datum, Status etc...)

Ich hätte jetzt gerne eine Funktion bzw Button der mir in meiner Listview anzeigt 'Heutiges Datum + 5 Tage'. Also alle Fälle die einen Termin in 5 oder weniger Tagen haben.
Beim Auftragseingang wird das Datum in die SQL gespeichert.
Mach ich das ganze schon bevor ich es in die Listbox lade? Also das Datum mit StrToDate ins Datumsformat bringen und vom aktuellen Datum abziehen?

Hat mir evt jemand einen Tipp der mich in die richtige Richtung leitet?
Soweit sieht mein Code jetzt aus:

Code:

procedure TForm7.Button_Datum(Sender: TObject);
var
  ID,a,p,e,s,v,pan :string;
  datumop, datumheute :TDate;
begin

  datumheute := date;


  ListView1.Items.Clear;
    SQLTransaction1.commit;
       SQLQuery1.Close;
       SQLQuery1.SQL.Text := 'SELECT * FROM Print_Auftrag WHERE Fertig = :Fertig';

     SQLQuery1.Params.ParamByName('Fertig').AsString := ?????????;
     SQLQuery1.Open;

    while not SQLQuery1.Eof do
             begin
     ID:=((SQLQuery1.Fields[0].AsString));
     a :=((SQLQuery1.Fields[2].AsString));
     p:=((SQLQuery1.Fields[3].AsString));
     e:=((SQLQuery1.Fields[9].AsString));
     s:=((SQLQuery1.Fields[15].AsString));
     v:=((SQLQuery1.Fields[11].AsString));
     pan:=((SQLQuery1.Fields[19].AsString));
     with ListView1.Items.Add do begin
      Caption:=ID;
      SubItems.Add(a);
      SubItems.Add(p);
      SubItems.Add(e);
      SubItems.Add(s);
      SubItems.Add(v);
      SubItems.Add(pan);
   end;
        SQLQuery1.Next;





end;

  Label7.Caption := IntToStr(ListView1.Items.Count);

end;

Gruß Tim