Не рисует на форме (Delphi)

[SL1M_DOGG]

Нужно нарисовать на форме снеговика. После нажатия Run ничего на форме не появляется

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm7 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation
{$R *.dfm}

procedure snegovik;
var xr1,yr1,xn1,yn1: integer;
xr2,yr2,xn2,yn2: integer;
begin
 xr1:=365;
 yr1:=130;
 xn1:=240;
 yn1:=395;
 xr2:=205;
 yr2:=130;
 xn2:=325;
 yn2:=395;
 Form7.Timer1.Interval:=50;
 Form7.canvas.Pen.Color:=clPurple;
 Form7.canvas.Brush.Color:=clWhite;
 Form7.canvas.Ellipse(200,200,400,400);  //туловище
 Form7.canvas.Ellipse( 230,100,370,230);
Form7.canvas.Ellipse( 275,50,340,110);

 Form7.canvas.Ellipse(xr1,yr1,xr1+30,yr1+30);//руки
 Form7.canvas.Ellipse(xr2,yr2,xr2+30,yr2+30);

 Form7.canvas.Ellipse(xn1,yn1,xn1+40,yn1+30); //ноги
 Form7.canvas.Ellipse(xn2,yn2,xn2+40,yn2+30);

 Form7.canvas.Pen.Color:=clBlack;     //глаза
 Form7.canvas.Brush.Color:=clBlack;
 Form7.canvas.Ellipse(280,60,290,70);
 Form7.canvas.Ellipse(305,60,315,70);

 Form7.canvas.Pen.Color:=clRed;   //нос
 Form7.canvas.Brush.Color:=clRed;
 Form7.canvas.MoveTo(290,75);
 Form7.canvas.LineTo(250,77);
 Form7.canvas.MoveTo(290,83);
 Form7.canvas.LineTo(250, 77);
 end;


procedure TForm7.FormCreate(Sender: TObject);
begin
 Form7.Width := 600;
 Form7.Height := 480;
end;

end.

[Mad_Cat]

И правильно делает)
Где вызов

procedure snegovik;

[Serge_Bliznykov]

ну и правильно. Вы же процедуру рисования ниоткуда не вызываете.
процедуру на Form onPaint добавьте:

procedure TForm1.FormPaint(Sender: TObject);
begin
   snegovik;
end;

а ещё - зачем Вам таймер на форме? Процедуры, которая назначена на срабатывание таймера у Вас в коде нет!