»» Перемещено в конференцию "Начинающим"

begin
 Shariki.Kolichestvo:=10;
end;

Должно сработать =)

PS.
Совершенно непонятно, что тебе нужно.
Охолонись и сформулируй задачу по-нормальному.

завести участвующие переменные для каждого шарика отдельно