procedure Test_ValueFromIndex;
var
value : String;
index : Integer;
TestObj : TStringList;
begin
TestObj := TStringList.Create;
try
index := TestObj.Add('Galapagos=Schildkröte');
value := TestObj.ValueFromIndex[index];
if Length(value) = 0
then raise ('Test_ValueFromIndex Error')
else showmessage(TestObj.DelimitedText);
finally
TestObj.free;
end;
end;