Копирование в новую форму

[rubik]

Беру код исходной программы, копирую и вставляю в новую форм, при запуске ничего не отображается. Хотя в исходник работает нормально. Объясните, я то я делаю не так?

procedure TForm1.FormPaint(Sender: TObject);
begin
with Canvas do
begin
// полотнище
Canvas.Pen.Width := 1;
Canvas.Pen.Color := clBlack;
Canvas.Brush.Color := clCream;
Rectangle(30,30,150,115);

// кольца
Pen.Width := 2;
Brush.Style := bsClear; // область внутри круга
// не закрашивать
Pen.Color := clBlue;
Ellipse(40,40,80,80);
Pen.Color := clBlack;
Ellipse(70,40,110,80);
Pen.Color := clRed;
Ellipse(100,40,140,80);
Pen.Color := clYellow;
Ellipse(55,65,95,105);
Pen.Color := clGreen;
Ellipse(85,65,125,105);
end;
end;

[rubik]

все разобрался сам, не поставил FormPaint