Использование Canvas в другом Unit'е

[chamchum]

Здравствуйте. Я начинающий программист, который пытается разобраться с модулями.
Передо мной встала задача: написать подобие clrscr в отдельном модуле.
Нигде не смог найти пример, как правильно подключить Graphics к Unit2, который будет выполнять примерно следующую операцию:

procedure TMyFunc.clrscr;
begin
  Canvas.Pen.Color:=clBlack;
  Canvas.Brush.Color:=clWhite;
  Canvas.Rectangle(5,5,MyForm.ClientWidth-5,MyForm.ClientWidth-5);
end;

Эта процедура будет вызываться в юните Main.
Пробовал всякое =) Не стану приводить все извращенства тут.

[chamchum]

Сделал так:

unit MyFunc;

interface

uses Windows;

procedure clrscr;

implementation

uses Main;

procedure clrscr;
begin
  SetDCPenColor(MyForm.Canvas.Handle,0);
  SetDCBrushColor(MyForm.Canvas.Handle,1);
  Rectangle(MyForm.Canvas.Handle,5,5,MyForm.ClientWidth-5,MyForm.ClientHeight-5);
end;

end.

Не хорошо на душе. Оно компилится, работает... но как-то, вроде, на костылях. Я прав?

[Аватар]

А почему бы Canvas и размеры клиентской области параметрами не передать? Тогда не будет жесткой привязки к конкретной форме

[chamchum]

Сообщение от Аватар

А почему бы Canvas и размеры клиентской области параметрами не передать? Тогда не будет жесткой привязки к конкретной форме

Передать размеры клиентского окна не проблема.
Вопрос, как передать canvas? С этим я мучаюсь.
До меня туго пока доходит, сколько бы я не читал. Хотелось бы примеров.

[Аватар]

procedure clrscr(Canvas: TCanvas; ClientWidth,ClientHeight: Integer);

Вызов из метода формы:

uses MyFunc;
...
clrscr(Canvas,ClientWidth,ClientHeight);

[chamchum]

Сообщение от Аватар

procedure clrscr(Canvas: TCanvas; ClientWidth,ClientHeight: Integer);

Вызов из метода формы:

uses MyFunc;
...
clrscr(Canvas,ClientWidth,ClientHeight);

Спасибо большое за помощь. Надеюсь в один день смогу написать что-то стОящее =)
Сложно без посторонней помощи с головой лезть в омут модулей, указателей и потоков.