Удалено, т.к. использовался сторонний компонент, а не от Delphi (поторопился встрять)