>>319 pascalコードで書いてくれれば Delphiでも使えるんでよろしく