Código Delphi [-] ShowMessage(TStringList(Lista.Items[0])[0]);
ShowMessage(TStringList(Lista.Items[0])[0]);