Скажите, пожалуйста, почему не рисуется эллипс (delphi)?

Question

вот, собственно, обработчик события. Рисовать нужно обязательно через BitMap. 
 
procedure TForm1.FormPaint(Sender: TObject); 
var 
 bitMap: TBitMap; 
begin 
 bitMap := TBitMap.Create; 
 bitMap.Canvas.Ellipse(10, 10, 100, 100); 
 Form1.Image1.Picture.BitMap.Assign(bitMap); 
end;

Виталий Бондаренко · Accepted Answer

Навскидку.. . 
....
bitMap := TBitMap.Create; 
bitMap.Width:= 150; 
bitMap.Height:= 150; 
bitMap.Canvas.Ellipse(10, 10, 100, 100); 
Form1.Image1.Picture.BitMap.Assign(bitMap); 
....