Thank you, but it doesn't work.
I'm using TAContour for contouring a lot of black areas in an image and get¨the result in a TLineSerie where all polygones are separated with some kind of nonNumber. When trying to use your code I get following error when compiling:
Error: Incompatible type for arg no. 1: Got "Double", expected "AnsiString"