Rechteck um gedrehten Text zeichnen?

[Tpercon]

Mit folgendem Code lasse ich einen Text gedreht auf nem Image ausgeben:

Delphi-Quellcode:

    Image1.Canvas.Font.Size := Sign[i].Font.Size;
    Image1.Canvas.Font.Style := Sign[i].Font.Style;
    Image1.Canvas.Font.Name := Sign[i].Font.Name;
    Image1.Canvas.Font.Color := Sign[i].Font.Color;
    SetGraphicsMode(Image1.Canvas.Handle, GM_ADVANCED);
    if Sign[i].Horizontal = false then begin
      tf:=TFont.Create;
      try
        tf.Assign(Image1.Canvas.Font);
        GetObject(tf.Handle, sizeof(lf), @lf);
        lf.lfEscapement:=gradzahl * 10;
        lf.lfOrientation:=gradzahl * 10;
        tf.Handle:=CreateFontIndirect(lf);
        Image1.Canvas.Font.Assign(tf);
      finally
        tf.Free;
      end;
    end;
    Image1.Canvas.TextOut(Sign[i].Left, Sign[i].Top, sign_s);

Wie kann man um diesen Text ein Rechteck zeichnen (nur aus vertiaklen und horizontalen Linien)?