Polygon clipping

Anyone know the source of a good
convex/nonconvex polygon clipping
routine, clipping the polygon to a rectangle
in delphi?, just something to see an example
would be nice, i keep getting weird behavior
in my own clipping routines.

Mohican
IRIS International
www.iris-int.nl