どのように書けばいいでしょう？

Delphiあたりで教えていただけるとありがたいです