[Alegun]

Чтож, поздравления, осталось только выполнить батник с кнопки, делается примерно так

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
 WinExec('1.bat', SW_SHOW);
end;