分数清囊相送（1000分），如何实现环排或者弧排文字。高手们快来拿分吧。急！！！！

Question

你到大富翁看一看吧，
我好象看见一个，
他创建一种新字体

Answer 1

旋转字体。希望对你有所帮助。procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
        LogFont:TLogFont;
        theFont:TFont;
begin
        with form1.Canvas do
        begin
                Font.Name:='Arial';
                Font.Size:=18;
                Font.Color:=clBlue;
                theFont:=TFont.Create;
                theFont.Assign(Font);
                GetObject(theFont.handle,sizeof(LogFont),@LogFont);
                LogFont.lfEscapement:=450;
                LogFont.lfOrientation:=450;
                theFont.handle:=CreateFontIndirect(Logfont);
                Font.Assign(theFont);
                theFont.Free;
                TextOut(x,y,'你好');
        end;
end;

Answer 2

敢问那位老哥，大富翁怎么去，小弟无知，见笑