Nimm doch Content-Type: text/
html; charset=UTF-8.
Davon brauchst Du "text/
html", das spendierst Du dann GetMIMEDefaultFileExt und die gesuchte Dateiendung sollte da rauskommen.
Ungetestet sowas in der Art:
Delphi-Quellcode:
function GetExtension(const AMIMEType: string);
begin
Result := GetMIMEDefaultFileExt(AMIMEType);
end;
...
var
sType : String;
i : Integer;
begin
sType := IdHTTP.Response.RawHeaders.Values['Content-Type'];
i := Pos(' ',sType);
if i > 0 then sType := Copy(sType,1,i - 1);
ShowMessage(GetExtension(sType));
...
end;