У меня есть такое желание использовать дельфевую процедуру:OleFontToFont. Смотрю HELP.
Given a font of type OleFont, it returns a font in the TFont format.

Unit

OleCtrlsj

Category

COM utilities

procedure OleFontToFont(const OleFont: Variant; Font: TFont);

Description

Use OleFontToFont to convert a font from Ole (IFontDispatch) to TFont format.

Ага, думаю нужно в USES добавить Unit OleCtrlsj. Нет проблем - добавляю. Компилятор мне дает сообщение:'File not faund OleCtrlsj.dcu'. Ищю всевозможными путями этот файл и не нахожу. Если можете помогите найти. Буду очень благодарен. Лучше конечно PAS файл.
Я с такой проблемой встречаюсь впервые, чтобы в Help'е было, а на самом деле небыло.

С уважением
Владимир.
Мой адрес: kalur@asspro.ee