Поворот текста под углом textout

[Winexcel]

Не знаю почему, но код который работает в одном проекте, не работает в другом, собственно исходник:

procedure CanvasSetAngle(C: TCanvas; A: Single);
var
  LogRec: TLOGFONT;     {Font informationen}
begin
 GetObject(C.Font.Handle,SizeOf(LogRec),Addr(LogRec));
 LogRec.lfEscapement := Trunc(A*10);
 LogRec.lfOrientation := Trunc((A+10) * 100);
 C.Font.Handle := CreateFontIndirect(LogRec);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Var A: Integer;
begin
   A := Random(3600);
   CanvasSetAngle(Canvas, A / 10);
   Canvas.TextOut(x, Y, FormatFloat('##0.0', A/10)+'°');
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
 index:=0;
end;

От М.Фленов, сначала написал ручками, поворот текст не делал, затем скопировал весь код из проекта, тоже не работает. Не понятно почему, скопировал весь код начиная от interface, не трогая только строчку unit, и всё также, что же я упустил?

[Stilet]

Нельзя просто так копировать. Нужно еще и события привязывать к форме и компонентам. Теперь в объекте инспекторов выбирай из списка событий те что ты в коде накопипастил и привязывай.

[Winexcel]

Сообщение от Stilet

Нельзя просто так копировать. Нужно еще и события привязывать к форме и компонентам. Теперь в объекте инспекторов выбирай из списка событий те что ты в коде накопипастил и привязывай.

Это всё есть.

[Winexcel]

Проблему решил, оказывается нужно было просто поменять шрифт, сменил на Times New Roman, и всё заработало, а вот со стандартным MS Sans Serif, не работало. Жалко что Фленов не написал об этом.