Código Delphi [-] With Lista Do ShowMessage(Strings[IndexOf(Elemento)]);
With Lista Do ShowMessage(Strings[IndexOf(Elemento)]);