Sur l'événement OnCreate de la Form (Form1) pour le Bouton (Button1) :

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  SetWindowLong(Button1->Handle,GWL_STYLE,
        GetWindowLong(Button1->Handle,GWL_STYLE) | BS_MULTILINE);
}

Le texte s'affiche sur plusieurs lignes automatiquement à l'exécution.

On peut forcer le passage à la ligne avec le caractère '\n', mais il faut affecter le texte du bouton à l'exécution.

Button1->Caption = "Ligne1\nLigne2";

Retour à l'index.