Помогите правильно записать все в процедуру Deplhi

помогите правильно записать все в процедуру Deplhi
помогите пожалуйста, вот есть код:
procedure TForm1.FormCreate(Sender: TObject);
begin
Image2.Canvas.Pen.Width:=1;
image2.Canvas.Brush.Style:=bsSolid;
image2.Canvas.Brush.Color:=RGB(200, 20, 255);
image2.Canvas.Rectangle(0,0,180,180);
end;

хочу сделать так чтоб в процедуре FormCreate вызывалась только процедура, ну например rect, в которой будет вот тот квадрат, который в данный момент там описан:

хочу чтоб вот так получилось:
procedure TForm1.FormCreate(Sender: TObject);
begin
rect;
end;
-----------------------
как блин правильно описать эту процедуру rect?

  • Когда учился такие самописные процедуры прятал в приват свойства формы.. . Тогда всё, что доступно в FormCreate будет доступно и в rect (то есть не нужны танцы с бубном вокруг параметров фукнции и передачи объектов при необходимости).. .

    итак, оглавляем данную процедуру в классе в разделе private, а потом в implementation описываем эту процедуру как и любой другой метод класса.