>>771
ヒント。

TRain=class
　x,y:Real;
　vx,vy:Real;
　procedure Process;
end;

TRainList = class
private
　FList:TList;
public
　property Count:Integer ...;
　function Add:TRain;
end;

TRain.Process;
begin
　vy := vy + 0.1; //重力加速度
　x := x + vx;
　y := y + vy;
end;