друг в инете попросил помочь процедурку на Delphi написать...
написал за 5 мин, потом ошибки и глюки целый день исправлял...