Auf canvas wird nicht gezeichnet

[Chuqa]

Hallo, und zwar hab ich folgenden Code:

Code:

procedure drehen;
begin
  with Form1.PaintBox2 do
        SetViewportOrgEx(Form1.PaintBox2.Canvas.Handle,20,20,nil);
  trans2d(0,0);
  Form1.PaintBox2.Canvas.MoveTo(Round(x),Round(y));
  trans2d(100,0);
  Form1.PaintBox2.Canvas.LineTo(Round(x),Round(y));
  trans2d(90,10);
  Form1.PaintBox2.Canvas.LineTo(Round(x),Round(y));
  trans2d(100,0);
  Form1.PaintBox2.Canvas.MoveTo(Round(x),Round(y));
  trans2d(90,-10);
  Form1.PaintBox2.Canvas.LineTo(Round(x),Round(y));
end;

procedure trans2d(dx,dy:Single);
var sinus,cosinus:Single;
begin
  sinus:=sin(alpha);
  cosinus:=cos(alpha);
  x:=x0+dx*cosinus-dy*sinus;
  y:=y0+dx*sinus+dy*cosinus;
end;

allerdings wird dabei nicht gezeichnet. Woran liegt das? Wenn ich die Nullpunktverschiebung rauslasse wird gezeichnet!

Gruß Chuqa