Buttons über zwei Zeilen beschriften?

[Luckie]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
   SetWindowLong(Button1.Handle, GWL_STYLE, GetWindowLong(Button1.Handle, GWL_STYLE) or BS_MULTILINE);
   Button1.Caption := 'Hallo'+#13#10+'du';
end;