bmp画像をjpegやpng画像に圧縮する方法

http://oshiete.goo.ne.jp/qa/8809275.html このページでbmp画像をtiff圧縮する方法を教えていただきました。 このプログラムを改良して jpegやpng画像にも対応したプログラムを作ることはできないでしょうか？ 恐らく、 　　　CLSIDFromString StrPtr("{E09D739D-CCD4-44EE-8EBA-3FBF8BE4FC58}"), .Guid ' 圧縮方法 というところを書き換えれば、他の形式にも対応できると思うのですが、 CLSIDFromString　で検索しても、情報は見つかりませんでした。 どうか教えてください。