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