富有难度但又很实用有意义的问题(100分)

to redsky.l:
谢谢你的回答。实际的要求比这个要高点。要显示出的是结构化的图象，各个线条要均匀分布，并且每一个节点都要有背景色；谢谢你的回答，能否给段代码或是程序思路，谢谢了。
email : lisongmagic@sina.com，肯请大侠赐招。

那就画成这样，就应该能满足你的要求
┌─┐
│01│
└┬┘
┌───┴───┐
┌──┴──┐ ┌──┴──┐
│0101 │ │0102 │
│bh(编号) │ │bh(编号) │
│xm(姓名) │ │xm(姓名) │
│zc(职称) │ │zc(职称) │
└─────┘ └─────┘
不过你程序的计算量会很大，你要计算好你画矩形的位置，满足你的“各个线条要均匀分布”要求（矩形大小倒是一定的，就两种矩形），还要计算你矩形之间的连线，你才能 Moveto 再 Lineto 完成连线，再就是计算文字输出的位置 TextOut(x,y,youstr) 这点应该不难，知道矩形位置再来点位移就可以了。
呵呵……写完这程序，你对Canvas的操作一定随心所欲了。

to redsky.l:
谢谢你的回答。小弟学delphi还不深入，以后有什么问题还希望大虾指教。谢谢！

祝大家玩的国庆快乐