Dibujar Elipse y Parábola pixel a pixel

[Deiv]

Vuelvo de casa después de implementar la orientación de JF Sebastian,
Pues lo he dibujado así con el código de abajo, imagino que deben ser las matemáticas, pero este me dibuja solo un cuadrante de la Elipse en el TIMage (cuadrante IV)

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
var
  x,y,radio:extended;
  P1,P2,a,b,angulo:integer;
begin
    radio:= 40;
    a:=5;
    b:=2;
    for angulo:= 1 to 360 do
      begin
        x := radio*a*cos(angulo);
        y := radio*b*sin(angulo);
        P1:= StrToInt(FloatToStr(int(x)));
        P2:= StrToInt(FloatToStr(int(y)));
        Image1.Canvas.Pixels[P1,P2]:= clBlue;
      end;
      //Image1.Repaint;
end;

Como dije solo me dibuja el IV cuadrante, debe ser que me estoy ubicando mal en el TImage; otra cosa, el Timer no me dibuja muy bien los pixels, pareciera que lo hiciese como un Random, ¿alguna sugerencia?

Es un problemita no tener conexión Internet en casa, siempre me valgo de un CyberCafe, y estoy leyendo en este momento el código de Seoane, lo probaré regresando, y luego responderé, bueno?.