Larsi, dass die Funktion nicht von dir stammt, dürfte hier allen klar sein. Daher gib bitte zukünftig immer deine Copy&Paste-Quellen an!
In deinem Fall
delphi-treff.de.
Edit: Huch der Beitrag von Larsi ist auch schon 1 Jahr alt. Naja, das gilt dennoch.
Edit 2: @Ajin: Bei mir (TurboDelphi) kompiliert der oben genannte Code von delphi-treff.de (s. meinen Link) ohne Warnungen.