@echo off
TPC.exe -b start.pas > nul
del c:\tp7\bin\usesone.tpu 
start.exe

procedure TForm1.Button1Click(Sender: TObject);
var cmdline:string;
si: STARTUPINFO;
pi: PROCESS_INFORMATION;

begin
  ZeroMemory(@si,sizeof(si));
  si.cb:=SizeOf(si);
  cmdline:='c:\tp7\bin\run2';
  if not CreateProcess( nil,
  PChar(cmdline),
  nil,
  nil,
  False,
  0,
  nil,
  nil,
  si,
 pi )
  then
  begin
   Exit;
  end;
  WaitForSingleObject( pi.hProcess, INFINITE );
  CloseHandle( pi.hProcess );
  CloseHandle( pi.hThread );
end;

procedure RunAndWait(command: string);
var
  si: STARTUPINFO;
  pi: PROCESS_INFORMATION;
begin
  ZeroMemory(@si, sizeof(si));
  si.cb := SizeOf(si);

  if not CreateProcess(nil, PChar('"' + command + '"'), nil, nil,
    False, CREATE_NO_WINDOW or NORMAL_PRIORITY_CLASS,
    nil, PChar(ExtractFilePath(command)), si, pi)
  then begin
    ShowMessage('Error process creation'); Exit;
  end;
  WaitForSingleObject(pi.hProcess, INFINITE);
  CloseHandle(pi.hProcess);
  CloseHandle(pi.hThread);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RunAndWait('F:\Test\run2.bat');
end;

@echo off
TPC.exe -B -U.. start.pas > nul
del usesone.tpu
start.exe

procedure RunAndWait(command: string);
var
  si: STARTUPINFO;
  pi: PROCESS_INFORMATION;
begin
  ZeroMemory(@si, sizeof(si));
  si.cb := SizeOf(si);

  if not CreateProcess(nil, PChar('"' + command + '"'), nil, nil,
    False, NORMAL_PRIORITY_CLASS, // <--- Внимание, БЕЗ Create_NO_WINDOW !!!
    nil, PChar(ExtractFilePath(command)), si, pi)
  then begin
    ShowMessage('Error process creation'); Exit;
  end;
  WaitForSingleObject(pi.hProcess, INFINITE);
  CloseHandle(pi.hProcess);
  CloseHandle(pi.hThread);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RunAndWait('C:\TP\run2.bat');
end;