procedure BringAppToFront;
var Th1, Th2: Cardinal;
begin
  Th1 := GetCurrentThreadId;
  Th2 := GetWindowThreadProcessId(GetForegroundWindow, nil);
  AttachThreadInput(Th2, Th1, True);
  try
    SetForegroundWindow(Application.Handle);
    Application.Restore;
  finally
    AttachThreadInput(Th2, Th1, False);
  end;
end;