[Alegun]

А что не получается-то, скопипастить процедуру обработчика клика кнопки что-ли? Здесь всё согласно рисунку. Показывайте.

Оффтоп:

...вот исходник...

Смотреть сейчас нечем - нету делфи