пример моего кода на Delphi 7 Фрилансер Danil L Phantom101 Портфолио Работ