procedure TForm1.Button1Click(Sender: TObject); begin WinExec('1.bat', SW_SHOW); end;
Я не понял Вашего вопроса, но всё же Вам на него отвечу!