Tfontstyle konwersja i znajdowanie tekstu

1.W jaki sposób moge zapisać TFontStyles danego komponentu do pliku ini, gdzie trzeba podać string.
2. Mam string:='Alamakota' i chcialbym sprawdzic czy 'ma' znajduje się w tym stringu.

1. Moze jest prostrzy sposob, ale:

function FontStyles2String(x: TFontStyles): String;
begin
  Result := IntToStr(Byte(x);
end;

function String2FontStyles(x: String): TFontStyles;
begin
  TFontStyles(Byte(StrToInt(x)));
end;

if Pos('ma', 'alamakota') > 0 then //Jest