この処理を、Delphiで書きたいだけだよ。