[Xamil]

Вот код процедуры:

1. procedure TForm1.FormPaint(Sender: TObject);
2. begin?with Canvas do
3. begin
4. Canvas.Pen.Width:=1;
5. Canvas.Pen.Color:=clBlack;
6. Canvas.Brush.Color:=clCream;
7. Rectangle(30,30,150,115);
8. Pen.Width:=2;
9. Brush.Style:=bsClear;
10. Pen.Color:=clBlue;?
11. ellipse(40,40,80,80);
12. Pen.Color:=clBlack;
13. ellipse(70,40,110,80);
14. Pen.Color:=clred;
15. ellipse(100,40,140,80);
16. Pen.Color:=clYellow;
17. ellipse(55,65,95,105);
18. Pen.Color:=clGreen;
19. ellipse(85,65,125,105);
20. end;
21. end;

при запуске появляется пустое окно, почему картинка не выводится?