Afficher du texte sur plusieurs lignes dans un Button

procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;

begin
i:=GetWindowLong(Button1.Handle,GWL_STYLE );
SetWindowLong (Button1.Handle,GWL_STYLE , i or BS_MULTILINE);
Button1.Caption := 'Line1'#13#10'Line2';
end;