<pre class="code">
TMultiLineCaptionButton = <b>class</b>(TButton)
  <b>private</b>
  <b>protected</b>
    <b>procedure</b> CreateParams(var Params: TCreateParams); <b>override</b>;
  <b>public</b>
  <b>published</b>
    (省略...)
<b>end</b>;

   (省略...)

<b>procedure</b> TMultiLineCaptionButton.CreateParams(var Params: TCreateParams); 
<b>begin</b>
  <b>inherited</b>;
  <i>Style</i> := <i>Style</i> <b>or</b> <i>BS_MULTILINE</i>;
<b>end</b>;
</pre>
ボタンを作成できたら、キャプションに改行コードつきの文字列を渡します。改行コードは#13#10です。(例 '1行目' + #13#10 + '2行目')
<pre class="code">
<b>procedure</b> TForm1.Create(Sender: TObject);
<b>begin</b>
  Caption := '1行目' + #13#10 + '2行目';
<b>end</b>;
</pre>