----------------------------------------------------------------- procedure SetCaption(ATitle: PChar);
Уничтожает текст в поле Attr.Title окна, вызывая StrDispose, а затем вызывает StrNew для выделения новой копии строки в ATitle для Attr.Style. Для обновления заголовка окна вызывает функцию API SetWindowText.