Ayuda no encuantro el ERROR

[[poliburro]]

Empezado por ManuelPerez

hola a todos donde cometo el error:

Código Delphi [-]
 
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

dos cosas, por favor usa bloques de sintaxis para cuándo postees código.
y séría ideal que indicaras en que línea ocurre el error.