Quizás mejor este otro ejemplo se aproxima más a lo que tu quieres:
Código SQL
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
f:String;
begin
f:=FormatDateTime('mm/dd/yyyy',date);
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select Numero, Fecha, Codcliente');
Query1.Sql.Add('from Factura');
Query1.Sql.Add('Where Fecha <'+QuotedStr(f));
ShowMessage(Query1.text);//Esto para ver el SQL sobra
Query1.Open;
end;
Un Saludo.