Para empezar Paradox carece de la instrucción DatePart, en su lugar tienes que utilizar:
Extract(Year from MiCampoFecha)
Segundo tampoco deja incorporar dentro de su SQL la sentencia Date, por lo que el año lo tendrás que cargar en una variable, por ejemplo de tipo entero antes de construir el SQL, que podría quedar más o menos así:
Código:
procedure TForm1.Button1Click(Sender: TObject);
var
Actual:Integer;
begin
Actual:=2002;
Q1.Close;
Q1.Sql.Clear;
Q1.Sql.Add('Select Count(numero) from Factura');
Q1.Sql.Add('Where Extract(Year from Fecha) = '+QuotedStr(IntToStr(Actual)) );
Q1.Open;
end;
Un Saludo.