如何做印章(100分)

请问如何编一个作印章的小程序,可以换印章的边框及里边的文字.或哪位有这样的程序?多谢!

最好要做个LABLE构件，把字倒过来，//我写不来构件，呵呵
周围简单，在Canvas上画好了。

这能这样了.

var
r: string;
LogFont: TLogFont;
NewFont, OldFont: THandle;
begin
SetBkMode(Canvas.Handle, Transparent);
LogFont.lfHeight := 20;
LogFont.lfWidth := 10;
LogFont.lfEscapement := 0;
LogFont.lfWeight := 0;
LogFont.lfItalic := 0;
LogFont.lfUnderline := 0;
LogFont.lfStrikeOut := 0;
LogFont.lfCharSet := DEFAULT_CHARSET;
r := '方正隶书简体'#0;
move(r[1], LogFont.lfFaceName[0], length(r) + 1);
NewFont := CreateFontIndirect(LogFont);
OldFont := SelectObject(Canvas.Handle, NewFont);
Canvas.RoundRect(95,93,145,143,10,10);
Canvas.TextOut(120, 100, '真');
Canvas.TextOut(120, 120, '的');
Canvas.TextOut(100, 100, '可');
Canvas.TextOut(100, 120, '以');
SelectObject(Canvas.Handle, OldFont);
DeleteObject(NewFont);


如果反相, 可以把这个CANVAS翻转(没试过);

谢谢cytown,cj.
churchill:你能再说详细点吗?不明白你的意思.

这个问题已经很长时间没有人参加讨论，为保持版面
整洁，节约网友时间，请提问者选择继续讨论或结束
问题。关于本版管理细则，请参见<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=111927">这个</a>问题。如两天
内提问者没有响应，我将采取强制措施。请提问者尽
可能自己处理自己的问题。这是您的权利，也是您的
义务。

如有管理建议，请到<a href="http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=111927">这里</a>提出。谢谢！

反过来应该可以.

多人接受答案了。

sorry,很长时间不能上网,所以没能及时对大家的回答表示感谢,真的很抱歉,谢谢大家,特别感谢cytown及cj.