laufende sinus-Kurve

[faux]

Hallo!

Ich hab mal mit dem Source eine laufende Sinuskurve gemacht:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
const
  b = 53;
var
  i: Integer;
begin
  with Form1 do
  begin
    Canvas.MoveTo(Width, Height);
      for i := Width downto -100 do
        if a <> 0 then
          Canvas.Pixels[i+a-1, round((sin(i * 0.12)) * 16)+16] := Color
        else
          Canvas.Pixels[i+b-1, round((sin(i * 0.12)) * 16)+16] := Color;
    Canvas.MoveTo(Width, Height);
      for i := Width downto -100 do
        Canvas.Pixels[i+a, round((sin(i * 0.12)) * 16)+16] := clBlack;
  end;
  inc(a);
  if a = b then
    a := 0;
end;

nur hab ich jetzt ein paar fragen:

1. Das Bild flimmert/ruckelt ein wenig. Ich glaube das liegt an meinem Quelltext. Wie kann ich das ändern? Meine Lösung ist nämlich sicherlich nicht die optimale Lösung.

2. Wie kann ich die Kurve runder (also nicht so eckig (pixelig)) machen?

Danke schon mal...