Delphiben programozok. Az sql query (TStrings) -ben van egy ilyen kódom. Azt szeretném ha a '03/03/1015' helyébe az auktuális dátum + 2 nap lépne. Milyen megoldás van erre?

Most így néz ki, lefut de nem hoz semmi eredményt csak egy üres DbGrid táblát:

unit gyakorol2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DB, DBTables, Grids, DBGrids;

type

Tfrmgyak = class(TForm)

DBGrid1: TDBGrid;

Query1: TQuery;

DataSource1: TDataSource;

procedure DataSource1DataChange(Sender: TObject; Field: TField);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmgyak: Tfrmgyak;

twoday : string ;

implementation

{$R *.dfm}

procedure Tfrmgyak.DataSource1DataChange(Sender: TObject; Field: TField);

begin

twoday:=FormatDatetime ('dd.mm.yyyy',Now+2);

Query1.Active:=False;

Query1.SQL.Add('SELECT SZAMLAK. "KOD", PARTNEREK. "Név", SZAMLAK. "HATÁRIDŐ" FROM "SZAMLAK. DBF" SZAMLAK, "PARTNEREK. DB" PARTNEREK WHERE (SZAMLAK.KOD = PARTNEREK.KOD) AND HATÁRIDŐ > DATE_ADD(NOW(), INTERVAL 2 DAYS);');

Query1.Active:=True;

end;

end.