Проблема с ООП

[_-Re@l-_]

Вот, пишу небольшую программу:

Uses Crt,Graph;

Type
    Rect = object
Private
       x1,y1,x2,y2:integer;
Public
     Constructor Init;
     Procedure Draw(a,b,c,d:integer);
     Procedure Hide;
end;

Constructor Rect.Init;
var q:boolean;
begin
     q:=True;
end;

Procedure Rect.Draw;
begin
     setcolor(15);
     Rectangle(x1,y1,x2,y2);
end;

Procedure Rect.Hide;
begin
    Setfillstyle(solidfill,0);
    Bar(0,0,640,480);
end;

var gd,gm:integer;
    ax1,ax2,ay1,ay2:integer;
begin
     gd:=detect;
     initgraph(gd,gm,'e:\bp\bgi\');
     ax1:=10;ax2:=610;
     ay1:=10;ax2:=460;
     Rect.Draw(ax1,ay1,ax2,ay2);
     readln;
     closegraph
end.

Однако выдаёт ошибку в строке:

 Rect.Draw(ax1,ay1,ax2,ay2);

И пишет: Invalid procedure or function reference. В чём дело?

[_-Re@l-_]

О, ошибку нашёл. Нужно было объявить переменную типа rect.
Теперб другой вопрос.
Почему когда я теперь запускаю программу экран остаётся черным?

Uses Crt,Graph;

Type
    Rect = object
Private
       x1,y1,x2,y2:integer;
Public
     Constructor Init;
     Procedure Draw(a,b,c,d:integer);
     Procedure Hide;
end;

Constructor Rect.Init;
var q:boolean;
begin
     q:=True;
end;

Procedure Rect.Draw;
begin
     setcolor(green);
     Rectangle(x1,y1,x2,y2);
end;

Procedure Rect.Hide;
begin
    Setfillstyle(solidfill,0);
    Bar(0,0,640,480);
end;

var gd,gm:integer;
    ax1,ax2,ay1,ay2:integer;
    field:rect;
begin
     gd:=detect;
     initgraph(gd,gm,'e:\bp\bgi\');
     ax1:=10;ax2:=610;
     ay1:=10;ax2:=460;
     Field.Init;
     Field.Draw(ax1,ay1,ax2,ay2);
     readln;
     closegraph
end.