[im_zorg]

пасяб только я map: shortstring; зделал в map: string;
и ещё забыл что это не висуалбейсик день не мог сделать((А надо было всего onclick поставить ту процедуру))