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?.

[JF Sebastian]

tienes que pasar los grados a radianes entre otras cosas...

[Deiv]

He revisado el código de Seoane, y...... sinceramente es lo que necesitaba, agradecerte una vez mas "Salvador Allende" ("Salvador Seoane")
Gracias.

[Tuvan]

Vengo siguiendo un tema que llevo en la universidad por varios casos como este en el foro y siempre me encuentro con las respuestas de Seoane te doy gracias amigo sabiendo que llevas tiempo sin actividad, tus respuestas me han dado mucha ayuda.
Es lo que buscaba, con esto termino de entender lo que estudiaba.
Gracias de nuevo