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

type
    TForm1 = class(TForm)<------hier ist ja die class TForm und ich möchte eine neue definieren...z.B. TBall= class,muss  aber TForm=class stehenlassen und wo soll ich das hier hinschreiben???klappt immer nicht...
    Image1: TImage;
    Timer1: TTimer;
    BitBtn1: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  TBall = class(TObject)
  private

  public

  end;

  TForm1 = class(TForm)
...