Open exe file system

uses
  ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, nil, 'cmd.exe',  '/run.bat', nil, SW_SHOWNORMAL);
end;