ドライブ選択のコンボボックスコンポーネントを作成中

ドライブ選択のコンボボックスはどこかであったと思うのだけど、満足いく実装のものがないので自作。
Delphi2009だとジェネリクスと無名関数使えてやっぱり楽だなぁ。
今日はここまで...。

参考

GetLogicalDrives 関数
GetDriveType 関数
ExtractIconEx 関数
DrawIconEx 関数