Componentes - tipos enumerados para string e vice versa

// convertendo tipos enumerados para string:

var

  i : TFieldType;

begin

  for i := Low(TFieldType) to High(TFieldType) do

    Listbox1.Items.Add(GetEnumName(TypeInfo(TFieldType),Ord(i)));

end;

// convertendo string para tipos enumerado

  Label2.Alignment := TAlignment(GetEnumValue(TypeInfo(TAlignment),'taLeftJustify'));