Выполнить действия после закрытия сторонней программы

procedure TForm1.Button1Click(Sender: TObject);
//запуск memtest+
var filepath:Tfilename;
begin
filepath:=ExtractFilePath(Application.ExeName)+'\memtest.exe';
ShellExecute(Handle,'open',PAnsiChar(filepath),nil,nil,SW_SHOWNORMAL);
end;

Uses ShellApi; // не забудь добавить этот модуль
 
// ...
 
var
  filepath: Tfilename;
  ShExecInfo: SHELLEXECUTEINFO;
begin
  filepath := ExtractFilePath(Application.ExeName)+'\memtest.exe';
 
  ZeroMemory(@ShExecInfo, SizeOf(ShExecInfo));
  ShExecInfo.cbSize := SizeOf(SHELLEXECUTEINFO);
  ShExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
  ShExecInfo.Wnd := 0;
  ShExecInfo.lpVerb := nil;
  ShExecInfo.lpFile := PChar(filepath);
  ShExecInfo.lpParameters := '';
  ShExecInfo.lpDirectory := nil;
  ShExecInfo.nShow := SW_SHOW;
  ShExecInfo.hInstApp := 0;
  ShellExecuteEx(@ShExecInfo);
  WaitForSingleObject(ShExecInfo.hProcess, INFINITE);
  ShowMessage('Finished');
end;