procedure TForm1.btn1Click(Sender : TObject);
var
  m      : Integer;
  s       : string;
  strlst  : TStrings;
begin
  strlst                     := TStringList.Create;
  strlst.Add('张三=80');
  strlst.Add('张四=90');
  strlst.Add('张五=100');
  strlst.NameValueSeparator  := '=';  //设置Name、Value分隔符！
  m                          := strlst.IndexOfName('张四');   //根据Name获取Index

  s                           := strlst.ValueFromIndex[m];     //获取Name的值

  strlst.Values['张五']  := '101';                     //根据Name设置Value 
  s                             := strlst.Values['张五'];     //根据Name获取Value
  strlst.Free;
end;