[M.A.D.M.A.N.]

Код:

i := 0;
j := 0;
k := 0;
while i<=20 do
begin
  Random(100);
  k := Random(100);
  inc(j, k);
  LiatBox.Items.Add(IntToStr(k));
  inc(i);
end;
Edit1.text := IntToStr(j);

С тебя 500 рублей.