igoreha

> А ты знаешь что такое DelphiX?
Не знаю :-( Просвети безграмотного или дай ссылку почитать.

Может так?

procedure TBall.DoCollision(Sprite: TSprite; var Done: Boolean);
begin
 if Sprite is TBall then begin
   (Sprite as TBall).vx := Бла-Бла; // Или так
   TBall(Sprite).vx := Бла-Бла; // или так
 end;
end;