[jhonny]

Bueno, no sé si he llegado tarde... en fin, para saber el MimeType de un archivo, también puedes usar las Indy:

Código Delphi [-]
Uses IdGlobalProtocols;

function GetMIMEType(sFile: TFileName): string;
var
  aMIMEMap: TIdMIMETable;
begin
  aMIMEMap := TIdMIMETable.Create(true);
  try
    result := aMIMEMap.GetFileMIMEType(sFile);
  finally
    aMIMEMap.Free;
  end;
end;

Y usarla así:

Código Delphi [-]
  
if OpenDialog1.Execute() then
    ShowMessage(GetMIMEType('C:\RutaArchivo.ext'));

Sacado de http://stackoverflow.com/questions/2...rver-with-indy