Вывод фигуры по координатам под углом. Работа с текстовым файлом. Delphi.

[Wild_klas]

Здравствуйте! У меня возникла проблема, порошу помощи.
Суть задания таково: Есть текстовый файл некий 17000.TXT из него нужно достать координаты точек и нарисовать на канвасе поду углом, относительно оси ОY, который в свою очередь вводиться с клавиатуры, ну и координаты вывести в стринггрид. Я написал программу, которая просто считывает, рисует и выводит координаты stringgrid. Но вот как сделать под углом я не знаю пока. Подскажите пожалуйста как.

Вот мой код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    Button1: TButton;
    StringGrid1: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  Point = record
    X, Y: Real;
  end;

var
  Form1: TForm1;
    f:textfile;
    PCount: Integer;
    Points: array of Point;
    ErrorCode: Integer;

implementation

{$R *.dfm}

function Get(S: String): Point;
var
  I: Integer;
  T: String;
begin
  T:= '';
   For I:= 8 to 12 do
      T:= T + S[I];
  Val( T, Result.X, ErrorCode);
  T:= '';
   For I:= 13 to 17 do
      T:= T + S[I];
  Val( T, Result.Y, ErrorCode);
end;

Const
    Scale = 25;

procedure TForm1.Button1Click(Sender: TObject);
 var
  ID, I: Integer;
  TC: Char;
  TS: String;
begin
  Assignfile(f, '17000.txt');
  Reset(f);
  ID:= 0;
   While ID <> 16 do
     begin
         Read(F, TC);
         if TC = '&' then Inc(ID);
     end;
  ReadLn(F, TS);
  Read(F, TC);
  ReadLn(F, TS);
  Val(TS, PCOunt, ErrorCode);
  SetLength(Points, PCount);
  StringGrid1.RowCount:= PCount;
    For I:= 0 to PCount - 1 do
       begin
           ReadLn(F, TS);
           Points[I]:= Get(TS);
           StringGrid1.Cells[0, I+1]:= FloatToStrF(Points[I].X,FFfixed,4,2);
           StringGrid1.Cells[1, I+1]:= FloatToStrF(Points[I].y,FFfixed,4,2);
       end;
  Canvas.MoveTo(Round(Points[0].X * Scale), Round(Points[0].Y * Scale));
    For I:= 1 to PCount - 1 do
       begin
           Canvas.LineTo(Round(Points[I].X * Scale), Round(Points[I].Y * Scale));
       end;
  CloseFile(f);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  StringGrid1.Cells[0,0]:='      Y';
  StringGrid1.Cells[1,0]:='      X';
end;

end.

Прилагаеться текстовый файл, и проект целиком. Заранее спасибо.

[BoozZzilla]

смотри, у тебя есть вектор - ноль координат и первая точка(с остальными аналогично).
Ты берёшь координаты по х и по у как косинус и синус угла вектора, длина естественно равна еденице(по пифагору посчитаешь ). В общем нашёл ты по синусу настоящий угол, добавляешь к нему необходимый тебе и снова берёшь из этого значения синус и косинус - вот тебе новые координаты первой точки.
В голове вроде всё складывается - как будто должно сработать.

[Wild_klas]

Можете пожалуйста поподробнее? на примере если можно, у меня не выходит..