Auslesen von Daten / Rechnung mit Datum

[ironman139]

Leider hab ich noch ein kleines Verständnisproblem.

Das Datum wird in dem Feld Fertig gespeichert in meiner SQL Datenbank.

Code:

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] BETWEEN CURDATE() AND CURDATE()+5';

   SQLQuery1.Params.ParamByName('Fertig').AsString := datetostr(datumheute);
   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;