[[Al González]]

Código Delphi [-]
Uses
  TypInfo;

Type
  TTComida = (tcSopa, tcCarne, tcPasta);

procedure TForm1.Button1Click(Sender: TObject);
Var
  S :String;
  TipoComida :TTComida;
begin
  S := 'Sopa';
  TipoComida := TTComida (GetEnumValue (TypeInfo (TTComida), 'tc' + S));

  If TipoComida = tcSopa Then
    ShowMessage ('Queremos sopa para empezar.');

  S := 'Carne';
  TipoComida := TTComida (GetEnumValue (TypeInfo (TTComida), 'tc' + S));

  If TipoComida = tcCarne Then
    ShowMessage ('Y ahora queremos carne.');
end;

Espero sea lo que necesitas, MaMu.

Un abrazo entre comidas.

Al González.