Si no tienes la propiedad WordWrap en tu versión de delphi, podemos intentar un apaño. En la unit de tu formulario coloca esto, justo antes de la definición del formulario:
Código Delphi
[-]
TButton = class(StdCtrls.TButton)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
El procedure CreateParams tendría este aspecto:
Código Delphi
[-]
procedure TButton.CreateParams(var Params: TCreateParams);
begin
inherited;
if Tag = 32 then
Params.Style := Params.Style or $2000;
end;
Es decir la cosa nos quedaría mas o menos así:
Código Delphi
[-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TButton = class(StdCtrls.TButton)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
TForm1 = class(TForm)
Button1: TButton;
private
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TButton.CreateParams(var Params: TCreateParams);
begin
inherited;
if Tag = 32 then
Params.Style := Params.Style or $2000;
end;
end.
Ahora en los botones que quieras tener mas de una linea, coloca la propiedad Tag = 32