procedure TForm1.Button2Click(Sender: TObject);
var
  PI : TProcessInformation;
  SI : TStartupInfo;
begin
  FillChar(SI, SizeOf(SI), 0);
  SI.CB := SizeOf(SI);
  if CreateProcess(0,'notepad',NIL,NIL,False,NORMAL_PRIORITY_CLASS, NIL, NIL,SI,PI) then
  begin
    WaitForSingleObject(PI.hProcess, INFINITE);  // Wait until external applicaton finished
    ShowMessage('NotePad Run Finished');
  end
  else
    ShowMessage('Cannot Open NotePad');
end;