как подключить модуль .tpu?

unit Rectangl;
 
interface
uses   Graph, Crt;
 
const EnvColor = white ;         { цвет фона }
 
type
 
 TRect = object   { тип объекта "прямоугольник" }
   X, Y : integer;          { координаты центра }
   SizeX, SizeY : integer;  { размеры }
   Color : byte;            { цвет }
   FillStyle : byte;        { способ закраски }
   Filled : Boolean;        { флаг закраски }
   Visible : Boolean;       { флаг видимости }
   procedure Init(InitX,InitY,InitSizeX,InitSizeY : 
      integer; InitColor,InitFillStyle : byte);
   {Начальная установка параметров  прямоугольника }
   procedure Show;
     { Высвечивает прямоугольник  на экране }
   procedure Hide;
     { гасит изображение  прямоугольника }
   function IsVisible : boolean;
     { Возвращает значение флага видимости }
   function IsFilled : boolean;
     { Возвращает значение флага закраски }
   function GetFigureColor : byte;
     { Возвращает значение цвета прямоугольника }
   function GetX : integer;
     { Возвращает X координату центра }
   function GetY : integer;
     { Возвращает Y координату центра }
   function GetWidth : integer;
     { Возвращает размер прямоугольника по оси X }
   function GetHeight : integer;
     { Возвращает размер прямоугольника по оси Y }
   procedure SetVisibilityFlag (NewVisible:boolean);
     { Устанавливает флаг видимости объекта }
   procedure SetFillFlag (NewFilled : boolean);
     { Устанавливает флаг закраски объекта }
   procedure SetFillStyleM(InitFillStyle : byte) ;
     { Устанавливает способ закраски объекта }
   procedure SetFigureColor(TheColor : byte);
     { Устанавливает цвет объекта }
 end;
 
implementation
{************ методы TRect  **************}
 
procedure TRect.Init;
begin
  X := InitX; Y := InitY;
  SizeX := InitSizeX; SizeY := InitSizeY;
  SetFigureColor(InitColor);
  SetVisibilityFlag(true);
  SetFillStyleM(InitFillStyle);
  SetFillFlag(true);
end;
 
function TRect.IsVisible : boolean;
begin
  IsVisible := Visible;
end;
 
function TRect.IsFilled : boolean;
begin
  IsFilled := Filled;
end;
 
function TRect.GetFigureColor : byte;
begin
  GetFigureColor := Color;
end;
 
function TRect.GetX : integer;
begin
  GetX := X;
end;
 
function TRect.GetY : integer;
begin
  GetY := Y;
end;
 
function TRect.GetWidth : integer;
begin
  GetWidth := SizeX;
end;
 
function TRect.GetHeight : integer;
begin
  GetHeight := SizeY;
end;
 
procedure TRect.Hide;  { гасит изображение объекта }
begin
  SetColor(EnvColor);
  SetFillStyle(EmptyFill, Color);
    if Filled 
       then Bar( X - SizeX div 2, Y - SizeY div 2,
                 X + SizeX div 2, Y + SizeY div 2 )
       else Rectangle( X-SizeX div 2, Y-SizeY div 2,
                      X+SizeX div 2, Y+SizeY div 2 )
end;
 
procedure TRect.SetVisibilityFlag ;
begin
  Visible := NewVisible;
end;
 
procedure TRect.SetFillFlag ;
begin
  Filled := NewFilled;
end;
 
procedure TRect.SetFillStyleM(InitFillStyle: byte) ;
begin
  FillStyle := InitFillStyle;
end;
 
procedure TRect.SetFigureColor(TheColor : byte);
begin
  Color := TheColor;
end;
 
procedure TRect.Show; {высвечивает объект на экране}
begin
  if Visible  then begin
  SetColor(Color);
  SetFillStyle(FillStyle, Color);
    if Filled 
       then Bar( X - SizeX div 2, Y - SizeY div 2,
                 X + SizeX div 2, Y + SizeY div 2 )
       else Rectangle( X-SizeX div 2, Y-SizeY div 2,
                      X+SizeX div 2, Y+SizeY div 2 )
  end;
end;
 
end.

uses Rectangl;

program oop1_prog;
uses oop1.tpu;
begin
end.

uses oop1;

unit oop1;