procedure TForm1.Button1Click(Sender: TObject);
begin
  var s := '対応が20年遅いがとにかく嬉しい機能だ';
  ShowMessage(s);
end;