Zalomení textu u tlačítek na více řádků

Pokud potřebujete u komponent třídy TButton, jako je samotné tlačítko, ale také CheckBox a RadioButton, zalomit delší text popisku na více řádek, pomůže vám v tom následující užitečná funkce:
function Zalomit(CTRL: TButtonControl): boolean;
var style : dword;
begin
style := GetWindowLong(CTRL.Handle, GWL_STYLE);
SetLastError(0);
SetWindowLong(CTRL.Handle, GWL_STYLE, Style or BS_MULTILINE);
Result := (GetLastError = 0);
if result then CTRL.Repaint;
end;