Intenta usar parametros (Params)
Código Delphi
[-]
With AdoQuery3 do
begin
...
...
SQL.add ('INSERT INTO facturaciones (num_fact, producto, Imp_prod, cant_prod, cliente, fecha, importe_total)');
SQL.add ('VALUE (:fact, :Prod, :IProd, :CantProd, :Client, :fecha, :Total');
With Parameters do
begin
ParamByName('fact').Value:=numfact;
ParamByName('prod').Value:=Edit1.text;
ParamByName('IProd').Value:=Precion_Unit;
ParamByName('CantProd').Value:=Edit2.Text;
ParamByName('Client').Value:1=Edit3.Text;
ParamByName('Fecha').Value:=Date;
ParamByName('total').Value:=TOTALD;
...
end;
...
Quizas veas que es mas codigo...
Edito:Corrigiendo AsValue por Value