原理见 http://202.38.73.222/~pjf/blog/archives/000040.html 代码如下 ： =========== Form1.dfm ======================================================== == Форма объекта1: tform1 левое = 192 top = 107 width = 396 height = 261 caption = 'form1' color = clbtnface font.charset = default_charset font.color = clwindowtext font.height = -11 font.name = 'ms sans serif 'Font.style = [] OldCreateeRoder = false Oncreate = formCreate ondestroy = formDestroy pixelsperinch = 96 Textheail = 13 кнопка объекта1: tbutton left = 0 top = 152 width = 89 Height = 25 Подпись =' Загрузка 'tabord = 0 onclick = button1click Memo1: Tmemo left = 0 top = 0 width = 385 Height = 145 Scrollbars = ssboth taborder = 1 end object button2: tbutton left = 0 top = 184 ширина = 89 высота = 25 Подпись = 'button2' taborder = 2 onclick = button2click Кнопка End Object3: Tbutton Left = 120 Top = 184 ширина = 89 высота = 25 Подпись = 'Button3' tabOrder = 3 OnClick = Button3click End End ＝＝＝＝＝＝＝＝＝ ＝＝＝＝＝＝＝＝＝