[TotKtoNado]

я разместил вот такой код

Код:

type
  TForm1 = class(TForm)
  TFooObject1 = class(TFooObject
  private

ну он у меня что то ругаеться
пишет ожидаеться':'но найдено '='

[lmikle]

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

Код:

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

  TForm1 = class(TForm)
  ...
  end;

[TotKtoNado]

Сообщение от lmikle

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

Код:

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

  TForm1 = class(TForm)
  ...
  end;

не получаеться
[Îøèáêà] Unit1.pas(10): Undeclared identifier: 'TFooObject'

[Vocabulary]

Класс TFooObject либо не объявлен и, следовательно, не существует, или он каком-то модуле есть, но модуль не подключен в предложение uses.

[NumLock]

Код:

type
  TFormulaOneThread = class(TThread)
  end;

  TForm1 = class(TForm)
  private
    { Private declarations }
    FFormulaOneThread: TFormulaOneThread;
  public
    { Public declarations }
  end;