var L:TStringList;
begin
  L:=TStringList.Create;
  L.Append('Name=Value');
  L.ValueFromIndex[0]:='';
  ShowMessage (L.Text); // <-выдает пустую строку
  L.Free;

procedure TStrings.SetValueFromIndex(Index: Integer; const Value: string);
begin
  if Value <> '' then
  begin
    if Index < 0 then Index := Add('');
    Put(Index, Names[Index] + NameValueSeparator + Value);
  end
  else
    if Index >= 0 then Delete(Index);
end;