Перенести из button

[ubun]

....
if .....then (...)

...

Имеется кусок программы. Надо, чтобы после нажатия button это начало работало там где скобки

Короче, надо кусок из procedure Button1.Click......... поставить туда где скобки. (Надо обязательно, чтобы начало работать после нажатия кнопки автоматически)

[Valio]

1. Тупо перекопировать код.
2. Сделать повторяющийся участок процедурой и вызывать и там и там.