[Vayrus]

Написал унит который вобрал в себя только функции по работе с потоками, через Дэлфи проект с данным унитом компилится нормально, пытаюсь вручную скомпилить (DCC32.EXE+rlink32.dll), не получается, пишет: Undeclared Identifier Tobject и System Unit Out Of Date or corrupted: missing Tobject. Как решить эту проблему???

Листинг Compile.bat:
@DCC32 -Q system.pas sysinit.pas -M -Y -Z -$D- -O
@DCC32 Project2.dpr
@DEL SYSTEM.DCU
@DEL SYSINIT.DCU
pause

Листинг SMALL_CLASSES.pas

Код:

unit SMALL_CLASSES;

{$R-,T-,X+,H+,B-}

interface

const
  MemoryDelta      = $2000;
  //
  soFromBeginning  = 0;
  soFromCurrent    = 1;
  soFromEnd        = 2;
  //
  fmCreate         = $FFFF;
  //
  fmOpenRead       = $0000;
  fmOpenWrite      = $0001;
  fmOpenReadWrite  = $0002;
  //
  fmShareCompat    = $0000 platform; // DOS compatibility mode is not portable
  fmShareExclusive = $0010;
  fmShareDenyWrite = $0020;
  fmShareDenyRead  = $0030 platform; // write-only not supported on all platforms
  fmShareDenyNone  = $0040;
  //
  PM_REMOVE        = 1;

type

  Int64Rec = packed record
    case Integer of
      0: (Lo, Hi: Cardinal);
      1: (Cardinals: array [0..1] of Cardinal);
      2: (Words: array [0..3] of Word);
      3: (Bytes: array [0..7] of Byte);
  end;

  HWND = type LongWord;
  WPARAM = Longint;
  LPARAM = Longint;
  UINT = LongWord;
  DWORD = LongWord;
  BOOL = LongBool;
  TPoint = packed record
    X: Longint;
    Y: Longint;
  end;

  tagMSG = packed record
    hwnd: HWND;
    message: UINT;
    wParam: WPARAM;
    lParam: LPARAM;
    time: DWORD;
    pt: TPoint;
  end;
  TMsg = tagMSG;

  POverlapped = ^TOverlapped;
  _OVERLAPPED = record
    Internal: DWORD;
    InternalHigh: DWORD;
    Offset: DWORD;
    OffsetHigh: DWORD;
    hEvent: Cardinal;
  end;
  TOverlapped = _OVERLAPPED;

  PSecurityAttributes = ^TSecurityAttributes;
  _SECURITY_ATTRIBUTES = record
    nLength: DWORD;
    lpSecurityDescriptor: Pointer;
    bInheritHandle: BOOL;
  end;
  TSecurityAttributes = _SECURITY_ATTRIBUTES;

  TSeekOrigin = (soBeginning, soCurrent, soEnd);

  TStream = class(TObject)
  private
    function GetPosition: Int64;
    procedure SetPosition(const Pos: Int64);
    procedure SetSize64(const NewSize: Int64);

....................................................................