прогуливал геометрию, пасаны чеделать

[supernewbie]

var
  len2:TPoint;
begin
PScene.Canvas.Pen.Color:=Line.color;
PScene.Canvas.MoveTo(Line.x,Line.y);
len2.x:=Round(Line.len * Cos(Line.angle));
len2.y:=Round(Line.len * Sin(Line.angle));
PScene.Canvas.LineTo(Line.x+len2.X,Line.y+len2.y);
end;

че-то не палучаится

Добавлено через 6 минут
55; -23 получается че-та :\