1:

edit1.text := TSprite.Y					

1:

edit1.text := floattostr(TSprite.Y)					

1:
2:
3:
4:
5:
6:

TPong = class(TImageSprite)
  public
    procedure DoMove(MoveCount: Integer); override;
    constructor Create(AParent: TSprite); override;
    procedure DoCollision(Sprite: TSprite; var Done: Boolean); override;
  end;					

1:

var   pong: TPong;					

1:
2:
3:
4:
5:

  with TPong.Create(DXSpriteEngine1.Engine) do  
  begin
    X := DXDraw1.Width / 2 - 5;
    Y := DXDraw1.Height / 2 - 5;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var   
  Pong: TPong;
  .
  .
  .
begin
  Pong := TPong.Create(DXSpriteEngine1.Engine);
  with Pong do
  begin 
    X := DXDraw1.Width / 2 - 5; 
    Y := DXDraw1.Height / 2 - 5; 
  end;
  .
  .
  .