Gar|k, кстати у меня тоже орет Авира на XPACK, может пару левых модулей еще подключить?

З.Ы. Значит я не буду выкладывать вариант отсылки на Delphi