Есть ли способ угадать MIME-тип в Delphi XE2?

Мне нужно угадать MIME-тип с целью заполнения заголовка "Content-Type" для некоторых загрузок файлов.

Я не нашел решения.

Я хочу вызвать что-то вроде: GetMimeType('C:File.jpg')и вернуть image/jpg.

Лучше всего, если он мультиплатформенный (для win/osx), но будет достаточно, если только для Windows.