Vielleicht ist
TTextCompFunc schon irgendwo in der
VCL definiert und man müsste nur den Namen umbenennen (z.B. nach
TTextCompareFunc).
Hab ich probiert, gleicher Fehler.
Hast Du den Quelltext irgendwo reinkopiert, oder die
Unit heruntergeladen und unter dem richtigen Namen gespeichert?
Ich habe alles in mein Programm reinkopiert, aber an die richtigen Stellen, meiner Meinung nach...