Sinus funktion

[shadow24]

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var x,y,y1,x1,dx : real;
    xx,yy : integer;
begin
With Image1.Canvas DO
begin
  MoveTo(200,0);
  LineTo(200,400);
  MoveTo(0,200);
  LineTo(400,200);
  x:=0;
  dx:=0.001;
  While x<=6.3 DO
    begin
      y:=sin(-x);
      y1:=y*25+200;
      x1:=x*25+200;
      yy:=trunc(y1);
      xx:=trunc(x1);

      Pixels[xx,yy]:=clred;
      x:=x+dx;
    end;
end;
end;

end.

Danke für Die Tips ,aber seht euch den Quelltext an.Kann sein das irgentwas nicht stimmt und es daran liegt