[lmikle]

правильно ругается.
У тебя объявление класса TForm1 не закончено. Надо примерно так:

Код:

type
  TFooObject1 = class(TFooObject)
   ...
   end;

  TForm1 = class(TForm)
  ...
  end;