У вас запуск теста осуществляется в событии формы OnCreate. Лучше всего создать новую внутреннюю процедуру, и назвать напрмер TestBegin.
В эту процедуру скинуть текст кода из процедуры OnCreate. А в событии OnClick кнопки на первой форме вызывать эту процедуру (TestButton).
А для начала я бы предложил весь код аккуратно пробелами выравнять. А то уж больно трудно понять что к чему.
|