Thanks again, but I've still one more question:
How can I fill everything beneath the lines, very fast.

I've tried with
[pascal]DXDraw1.Surface.Canvas.FloodFill(400,595,clRed,fsB order);[/pascal]
But that was way to slow.