[ecfisa]

Hola.

Agregando algo a lo que bién sugirió escafandra, si deseas aplicarlo a todos los botones de un mismo contenedor:

 
void WordWrapButtons(TWinControl* aParent)
{
  for(int i=0; i < aParent->ControlCount; i++)
    if(aParent->Controls[i]->ClassNameIs("TButton")) {
      TButton *b = static_cast<TButton*>(aParent->Controls[i]);
      SetWindowLong(b->Handle,
                    GWL_STYLE,
                    GetWindowLong(b->Handle, GWL_STYLE) | BS_MULTILINE);
      b->Refresh();
    }
}

Ejemplo de llamadas:

   ...
   WordWrapButtons(Form1);
   WordWrapButtons(Panel1);
   ...

Saludos