SQL Clause

[Jim Sawyer]

I have the following

procedure Form1.FormShow( Sender: TObject );
var
dDate: TDateTime;
begin
dDate := StartOfAYear( YearOf( Date ) );
with qRecords do
begin
SQL.Clear;
SQL.Add( 'Select * from Records where RecDate >= dDate' );
Open;
end;

How can I modify the SQL clause to make it work?

Thanks,
Jim Sawyer