var
//  TFontStyle = (fsBold, fsItalic, fsUnderline, fsStrikeOut);
  FS : TFontStyle;
begin
  FS := fsBold;
  Edit1.Font.Style := [FS];

이렇게 하면 원하는 답이 아니겠죠???
꼭 String값으로 넣어야되는 이유라도 있나요?

채팅창에서...font값을 설정한걸..
정보를 전달하는데 string,값을 전달하기
때문에.. string값이 필요해서요..
그럼 좋은 하루되세요

function FontStylesToString(const FontStyles: TFontStyles): String;
begin
  Result := '';
  if fsBold in FontStyles then Result := Result + 'b';
  if fsItalic in FontStyles then Result := Result + 'i';
  if fsUnderline in FontStyles then Result := Result + 'u';
  if fsStrikeOut in FontStyles then Result := Result + 's';
end;

function StringToFontStyles(const StyleString: String): TFontStyles;
var
  tmp: String;
begin
  Result := [];
  tmp := StyleString;
  while Length(tmp) > 0 do begin
    case tmp[1] of
      'b': Result := Result + [fsBold];
      'i': Result := Result + [fsItalic];
      'u': Result := Result + [fsUnderline];
      's': Result := Result + [fsStrikeOut];
    end;
    Delete(tmp, 1, 1);
  end;
end;