Ayuda no encuantro el ERROR

[ManuelPerez]

hola a todos donde cometo el error:
function TFRMFacturacion.VerificaRepite2(codigo :string)ouble;
var xx: Double;
begin
IBDSArtFactura2.Active:=true;
IBDSArtFactura2.First;
xx:=0;
while not IBDSArtFactura2.Eof do
begin
if(IBDSArtFactura2CODARTICULO.AsString = codigo)then
begin
xx:=xx+IBDSArtFactura2CANTIDAD.AsFloat;
end;
IBDSArtFactura2.Next;
end;
VerificaRepite2:=xx;
end;

y me tira un error " is not a valid floating point value" QUE ?????

AYUDA POR FAVOR