[TheNew]

Gracias amigo. pero aun no se como ejecutar ese procedimiento en un TButton, como te dige al inicio soy novato de delphi7. Como hago para ejecutar este procedimiento al hacer click en un Tbutton.