Para problemas de tipo fecha, lo mejor es usar "Paramentros" en el DataSet. De esa forma le dejas el trabajo sucio a otro.
Código Delphi
[-]
sql := 'Insert into FinalProduct(Id,PlantId,OrderId,PackDate,BagsURC,IdCus,IdVar) Values(:Inicio, :Planta, :Orden, :Fecha, :Bolsas, 107,169)';
With Query1 do
begin
Sql.Text:=sql;
ParamByName('Inicio').AsFloat:=Inicio;
ParamByName('Planta').AsString:=CmbPlanta.Items[CmbPlanta.itemindex];
ParamByName('Orden').AsString:='K017-3';
ParamByName('Fecha').AsDateTime:=Date;
ParamByName('Bolsas').AsString:=NBolsas.Text;
ExecSql;
end;