Подскажите, как сделать компонент (не программу) для Delphi7 окно ввода, которое при изменении размера масштабирует текст

Подчеркиваю, код нужен не для программы, а для компонента.

мог бы сделать, не обращался бы