1:

 Button.Top:=Button.Top+1;					

1:
2:
3:
4:
5:

TKreis = record
  position, 
  velocity: TPoint;
  radius: integer;
end;					

1:

var kreise: array of TKreis;					

1:
2:

for i := 0 to high(kreise) do 
  kreise[i].position.y := kreise[i].position.y + kreise[i].velocity.y					

1:
2:

for i := 0 to high(kreise) do 
  paintbox1.canvas.ellipse(kreise[i].position.x-radius, kreise[i].position.y-radius, kreise[i].position.x+radius, kreise[i].position.y+radius);