TStringList.ValueFromIndex

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;