[poli-smen]

Ещё забыл добавить, что функцией StringToOleStr пользоваться не рекомендую, так как она не освобождает за собой память занятую под строку - получаются утечки памяти. Либо же освобождать память явно, вызывая SysFreeString.