uses
  QT;

procedure TForm1.RotatedText(Cnv: TCanvas; Wkl: Integer; Pxy: TPoint; Txt: string);
var
  PrPoint: TPoint;
begin
  // Поворот канвы
  QPainter_rotate(Cnv.Handle, Wkl);
  // Перевод координат устройства в координаты модели.
  QPainter_xFormDev(Cnv.Handle, PPoint(@PrPoint),
    PPoint(@Pxy));
  // Написание текста.
  Canvas.TextOut(PrPoint.X, PrPoint.Y, Txt);
end;