а саму функцию
плиз накатай

http://delphisources.ru/pages/sources/internet/2006_year/fast_scan.html некатит