[Diseased Head]

Код:

TInterior = object (TScroller)
     PS: PStringCollection;
     Location: Word;
     Constructor Init (varBounds: TRect; HS,VS: PScrollBar) ;
     Procedure Draw; Virtual;
     Procedure ReadFile;
     Destructor Done; Virtual;
     Procedure HandleEvent (var Event: TEvent) ; Virtual;
   end;

Забыл поставить пробел. varBounds --> var Bounds Ни чё, бывает...
Но у меня там ещё ошибка появилась:

Код:

  Constructor Tinterior.Init;

begin
           TScroller.Init (Bounds, Hs, VS);
           ReadFile;
           GrowMode :=gf GrowHix+gf GrowHi Y ;
           SetLimit (LLine, PS^.Count)
end;

Также ругается на идентефикатор.
Дамаю ошибок будет ещё много. Хорошо бы, чтоб я ошибался.

Код:

begin
           TScroller.Init (Bounds, Hs, VS);
           ReadFile;
           GrowMode :=gf GrowHix+gf GrowHi Y ;
           SetLimit (LLine, PS^.Count)
         end;


         Detructor TInterior.Done;
         begin
           Dispose(PS,Done) ;
           Inherited Done
         end;

Дааа...... Начинаю злиться...
gf GrowHix+gf GrowHi Y ---> gfGrowHix+gfGrowHiY
Detructor ---> Destructor
Может так!
Сразу оговорюсь что я не знаток Паскаля, так что не ручаюсь.

Далее ещё ошибки...