ObjectPascalならSingleだよ